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Tai-Pan 
El pirata 
de Ocean 


A ras el enorme exito obtenido 
con The Great Escape y cuando aun 
no hemos digerido por completo 
las excelencias de Arkanoid, Ocean 
ya nos tiene preparado un nuevo 
lanzamiento super-estrella: Tai-Pan. 

Este programa, cuyo argumento 
esta basado en una novela de 
James Clavell, consiste en una 
complicada mezcla de arcade y 
videoaventura protagonizada por 
un pirata que surca los mares de 
China, en pos de una inmensa 
fortuna. 

A1 principio del juego, te 
encuentras sin blanca (no barco, 
no tripulacion, no dinero) y 
comienzas en la ciudad de Canton. 
Desde aqui inicias tus pesquisas 
para encontrar a alguien que te 


ofrezca el capital suficiente para 
comprar un barco y equipo y 
contratar al personal necesario 
para comenzar tu aventura. Antes 
de que transcurran seis meses 
' deberas devolver el dinero, o de lo 
contrario, tu prestamista te 
perseguira con la sana intencion de 
incluir tu hermosa cabeza en su 
coleccion particular. 

De esta forma, tendras que 
administrar bien tu capital (compra 


de nave y provisiones) y solo tu 
deberas elegir si decides efectuar 
tus acciones por la via legal o si 
deseas convertirte en un autentico 
pirata. Asi, podras elegir entre 
varios tipos diferentes de acciones 
que van desde negociar con 
contrabandistas, participar en 
Carreras, mantener combates con 
otros barcos, comerciar en los 
puertos, etc. Un juego realmente 
completo, variado y divertido. 

La version definitiva para 
Amstrad aun no esta fmalizada, 
aunque muy pronto estara 
disponible en el mercado espanol. 
Por el momento, y a modo de 
preludio, ofrecemos algunas 
fotografias de pantallas extraidas 
de la version de Commodore. El 
Amstrad no permite tanta 
minuciosidad en el diseno, pero es 
de esperar que los programadores 
de Ocean hayan realizado una 
buena conversion y que la calidad 
grafica de Tai-Pan sea igualmente 
brillante. 



LQ 



JUEGOS 
ESPANOLES 
TRIUNFAN EN 
GRAN BRETANA 

Army Amoves, el popular juego 
de Dinamic, esta despertando en 
estos momentos un gran interes 
en el Reino Unido. 

Este autentico numero uno ha 
recibido muchas criticas 
favorables en la prensa 
informatica britanica, entre las 
que destaca principalmente la de 
Sinclair User (una de las revistas 
mas prestigiosas de este pais), la 
cual le ha otorgado una 
calificacion de 5 estrellas, es 


decir, la que corresponde al 
maximo nivel de calidad. 

Dicha noticia deberia alentar 
no solo a Dinamic, sino a todas 
las nuevas casas de software 
espaholas que en el presente esta 
produciendo software de 
contrastada calidad y que esta 
siendo reconocido como tal. 

Con objeto de promocionar ei 
lanzamiento de Army A/loves, 
Sinclair User en colaboracion con 
Ocean ha organizado una 
competicion basada en dicho 
juego y cuyo primer premio 
consiste en un jeep teledirigido 
(controlado por radio). 

Dinamic ha conseguido un 
enorme impacto con su primer 


lanzamiento de importancia en 
Gran Bretana y el publico 
comienza a esperar con ansiedad 
que la compafiia vuelva a lanzar 
nuevos ti'tulos. 

Sin embargo, Dinamic no es la 
unica compahia espahola que en 
la actualidad esta consiguiendo 
importantes exitos en Gran 
Bretana, pues Opera Soft 
tambien ha hecho una fulgurante 
aparicion en el mercado de la 
mano de Alligata Software. 

Alligata ha anunciado que 
Livingstone, supongo va a 
demostrar ser el juego mds 
adictivo de 1987. 

No cabe duda que estas dos 
compahias de software tan 
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Nuevo 
scanner 
Microtek 


I-ia empresa Distribuidora de 
Sistemas Electronicos (DSE), ha 
llegado a un acuerdo con la firma 
Microtek Inc. para la distribuicion 
de su Imea de scanners opticos. A 
nivel de definicion general, se 
puede decir que un scanner es un 
aparato de analisis que puede ser 
tl usado para convertir textos, 

fotografias o cualquier otro tipo de 
documento escrito, en un codigo 
binario susceptible de ser 
procesado por un ordenador. 

El MS-3000A —uno de los 
modelos disponibles—, es un 
scanner de elevada resolucion (300 
DPI) en el cual estan previstas dos 
formas basicas de lectura: el modo 
I Line Art, para documentos impresos 

I exclusivamente en banco y negro, 

y el modo Semitono para 
; documentos que contengan algun 

I tipo de sombreado. Tambien es 

posible, sin embargo, una lectura 
en modo mixto gracias al extenso 
rango de controles que incorpora 
' su hardware y firmware, tales 

como birllo, contraste, variacion de 
escala y su alta resolucion. Sus 
posibilidades se ven incrementadas 
por la utilizacion de un potente 
I detector de errores, asf como por 
I su funcion de autodiagnostico. La 


comprension de datos y el DMA 
(acceso directo a memoria), 
reducen sustancialmente el tiempo 
de lectura, dando mayor agilidad a 
su trabajo. 

E specificaciones: 

Resolucion: 300 puntos/pulgada. 

Modo de operacion: line-art, 
semitono, mixto. 

Control de contraste: ajustable 
(14 pasos). 

Control de brillo: ajustable (14 
pasos). 

Escalas: ajustable (16 pasos). 

Tiempo de lectura: 9,9 seg. 

Metodo de impresion de datos: 
CCITT. 

Interface: Paralelo Centronics, 
serie RS232C/RS422. 

Sensor de imagen: por array de 
celulas fotosensibles. 

Este scanner, mediante la 
utilizacion del software adecuado, 
puede ser utilizado con un 
Amstrad, y se acompana del 
programa Eyestar para 
tratamiento y mezcla de textos e 
imagenes. Como opcion, pueden 
utilizarse los programas OCR para 
reconocimiento de caracteres u 
otros para conversion de dibujos en 
ficheros tratables por un 
AUTOCAD. 


Turbo Back Up es un nuevo 
programa de Idealogic con el que 
se pueden hacer copias de los 
datos introducidos en un disco 
duro. 

Funciona en cualquier PC con 
sistema operativo MS DOS. 
Ademas de copiar, reorganiza el 
disco de forma que los ficheros 
tendran espacios continuos, dando 
asf mayor rapidez de acceso. Otra 
posibilidad es poder cifrar los 
datos en el disckette de seguridad 
para que nadie pueda acceder a 
ellos. 

Lleva una serie de pantallas de 
ayuda, a las que se puede llegar 
desde el programa, que la dan unt 
gran facilidad de uso. En caso de 
error, proporciona una explicacion 
de por que se ha producido y en 
que consiste. 

Su precio es de 19.500 pesetas. 


Modulador de TV 
para Amstrad 

MHT Ingenieros ha disehado y 
fabricado un modulador de 
television compatible con los 
modelos 464, 664 y 6128 de 
Amstrad. Puede conectar el 
ordenador a cualquier television, 
directamente o a traves del video, 
prescindiendo del monitor. 

La mejor ventaja de este tipo de 
perifericos la obtiene los usuarios 
de ordenadores con monitor en 
fosforo verde, ya que con este 
aparato pueden conectarlo a una 
television en color, cuando sea 
conveniente por las caracterfsticas 
del programa, por ejemplo si es ur 
juego. 

Ademas se pueden grabar en 
I video cualquier programa e 
introducir cabezeras o anotaciones 
de todo tipo, en una cinta grabada 
previamente. 

El modulador M-1 tiene salida | 
de seiial en canal UHF, tension de 
alimentacion de 220 voltios, 
conexiones con el ordenador de 5 
voltios, 12 voltios o RBG. 

Saldra a la venta a finales del 
mes de junio con un precio 
aproximado de 10.000 pesetas. 


proli'ficas representan la cumbre 
del software en Espana y es mds 
que probable que los proximos 
lanzamientos de Dinamic y Opera 
alcancen identicas cotas de 
popularidad a la de los dos 
programas mencionados. 

AMSTRAD 
OBTIENE EL 39 
POR TOO DEL 
MERCADO 
INGLES DE PC's 

En la acfualidad Amstrad estd 
vendiendo el doble de 


ordenadores PC que IBM, segun 
se desprende de los datos 
facilitados por una compania que 
ha efectuado un reciente sondeo 
al mercando londinense. 

Romtec, que publico sus 
informes coda tres meses y que 
do informocidn sobre el estodo 
de los micros en el Reino Unido, 
afirma que la parte proporcional 
de Amstrad en el mercado de 
PC's olcanza en la actualidod el 
39 por ciento del total, es decir, 
casi dos veces la parte 
proporcional de IBM, y 
superando con considerable 
ventaja a otras marcas como 
Apricot (5,7), Olivetti (4,7) y 
Apple (3,6). 
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Recuerdo aun, no sin cierta nostalgia por mi parte, la epoca de aquellos viejos cacharros 
enormes en tamano, sobrios en su presentacion y no menos sobrios en aquellos minusculos 
caracteres parpadeantes en verde fosforescente. Ni colores, ni puntos como estrellas, ni flashes 
indiscriminados, entretenian y asombraban la vista del paciente usuario, quien resignado, 
acababa reconociendo en aquel monstruo de aspecto grisdceo y cara verdosa, la encarnacion del 
antiarte. Ahora los tiempos han cambiado, y tras la pantalla de cualquier domestico se 
esconde una surtida paleta de color, y un conocimiento sobre las curvas que habria pasmado 
al mismisimo Giotto. 
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M- -J 1 CPC, uno de los grandes representantes 
en la saga de los Home Computer, no seria lo 
que es si antes no hubiese pasado la gran prueba 
a la que todo usuario somete al posible bianco de 
su futura compra: la capacidad grafica. 

Cuando se pone en tela de juicio la capacidad 
grafica de un ordenador, tres puntos basicos son 
los que se manejan: la resolucion en puntos, la 
resolucion en colores y la facilidad de manejo de 
estas capacidades. 

La resolucion en puntos se corresponde con el 
mimero de pixels, unidades mmimas con 
capacidad para estar en distintos estados que 
coexisten en la pantalla. 

Si importante es la resolucion en puntos, no 
menos importante es la resolucion de color, esto 
es, el mimero de colores que pueden estar 
simultaneamente en pantalla. 

En el caso particular de los Amstrad CPC, 
existen tres modos distintos de pantalla, a los 


cuales corresponden distintas resoluciones de 
colores y de puntos. De esta forma, a medida 
que aumentamos el mimero de estos, posibles en 
la pantalla, disminuimos el mimero de colores y 
viceversa. El mimero de colores y puntos que se 
corresponden a cada modo son los siguientes: 



Colores 

Puntos 

Modo 0 

16 

200X 160 

Modo 1 

4 

200 X 320 

Modo 2 

2 

200 X 640 


Mediante este habil juego de colores y puntos 
se consigue algo muy importante: que la 
memoria de pantalla permanezca constante, con 
lo que no seran necesarias rutinas especificas para 
cada modo. 

El tercer tema, sobre el que en esta ocasion 
haremos hincapie, contempla el aprovechamiento 
que de las dos anteriores capacidades puede 
realizar el usuario medio. 

En este ultimo aspecto, poco hay que reprochar 
a Locomotive Software, ya que han sido capaces 
de dotar al Basic de los CPC de una serie de 
instrucciones que posibilitan al maximo todas 
estas capacidades graficas, y a las cuales vamos a 
dedicar este artfculo. 


El primer punto 

Lo primero que trataremos de defmir es 
nuestro area de trabajo. Para entender a fondo 
todos los comandos graficos de los CPC, 
realmente de cualquier ordenador, es tener muy 
clara la idea de piano cartesiano. En un piano de 
este tipo, los puntos, pixels, se prepresentan por 
dos cifras que definen univocamente un punto de 
la pantalla. Para comprender mejor este 


PROGRAMA 1 


PROGRAMA 2 

1 MODE 2 



i. U 



20 PLOT 0,0:LOCATE 2,25:PRIWT 


20 REM traza un rectangulo 

"PUKTO fO.O)”: 


30 REM X y vertice de inicio 

?'0 PLOT 0,399: LOCATE 2,1" PR I NT 


40 REM h altura, a ancho 

” PUNTO 0.3*99'' ” 


50 REM - 

40 PLOT 639,399:LOCATE 65,1:PE 


60 REM inicializa variables 

INT ’’PITNTO (639,399)”; 


70 x=100:y=100:h=50:a=80 

50 PLOT <539,0 : LOCATE 65,25; PR 


80 PLOT x,y:DEAV x+100,y 

TTJT ”PUNTO (639,0)”; 


90 DRAW x-tlOO.y+h 

60 LOCATE 1,10 


100 DRAW x,y+h;DRAW x,y 
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concepto, imaginaremos dos Imeas, una 
justamente en el Kmite inferior de la pantalla y 
otra, vertical, que sube desde la esquina inferior 
izquierda del monitor hacia arriba. El ancho de 
nuestra pantalla habil es de 640 puntos y el alto 
de 400. Para referirnos a un punto lo haremos en 
la misma forma que lo hacemos en el 
archiconocido juego de los barquitos, primero nos 
referiremos al eje de las X, el eje horizontal y 
despues al de las Y, el vertical. 

Pero dejemonos de matematicas y vayamos al 
centro de la cuestion pintando el primer punto. 
Para ello haga, por ejemplo: PLOT 200,100. Si 
todo ha ido bien y agudiza un poco su vista, 
podra ver como un diminuto punto ha aparecido 
como por arte de magia en su pantalla. 

Marquemos ahora los vertices que delimitan el 


PROGRAMA 3 

20 EEM circ-uio 

30 EEK v,y centro de la. circun 
fer enr ia 

40 PEM P radio de ia circunfer 
enc ia 

50 EEM - - - -- 

60 >1=300: y—200 
70 R=150 

SO FOP 9.UF,= 0 TO 2TPI STEP 0.01 
90 PLOT x + E^:SIN<ang) , y 
ng > 

IPO NEXT 


recuadro que Integra nuestra pantalla, para ello 
teclee y ejecute el programa 1. 

En su monitor tendra los cuatro puntos que 
delimitan el rectangulo de su monitor. 

Como usted mismo podra observar, el punto 
(0,0) de los ejes cartesianos que delimitan su 
pantalla se encuentran justamente en la esquina 
inferior izquierda. Esto que quiza no le resulte 
incomodo en la creacion de dibujos artisticos, si 
puede serle bastante incordiante a la hora de 
realizar representaciones de funciones 
matematicas cuyo resultado sea positive y 
negative. No obstante, para estos cases, el Basic 
de los Amstrad tiene la posibilidad de mover el 
centro de coordenadas a cualquier punto de la 
pantalla. La orden que le va a permitir realizar 
esta tarea es la funcion ORIGIN. Para utilizarla 


io CIS 




on T filpsr 
-0 E'EJVf ... 

do ejt pri*r eje, ^ 

50 EEM - - .. 


,«0 X=300;ye200 

I O ; Ey= r r,n 

60 FOP = j-CO 

' ® ® \ y+E 

/OO NEXT 
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le bastara con ejecutarla, haciendola acompanar 
de dos parametros; el primero el valor de X y el 
segundo el valor de Y. Asi, si ejecutamos: 

ORIGIN 300,200 

Los que habremos hecho es trasladar el centro 
de coordenadas, el punto (0,0), al centro justo de 
su monitor. 

Un concepto muy importante a la bora de 
tratar con graficos en el Amstrad CPC es el de 
plumas y tintas. Para cada uno de los modos de 
pantalla existe un numero de colores maximo que 
pueden presentarse simultaneamente en pantalla, 
dos para el modo 3, cuatro para el modo 1 y 16 
para el modo 0. Estos colores estan numerados 
del 0 en adelante y pueden ser escogidos entre 
toda la paleta de 26 colores. Para seleccionar esta 
paleta de color, deberemos utilizar la instruccion 


PROGRAMA 5 

1 MODE 1 

T-RTT/ n n* T1 on 

Cl i J v' * i ri JL ; C- V 

10 EEM cillndrD 

20 REM xl,yl. coordenadas de ba 
se 

30 KEM h altura, r radio 

41 X1^300;Yl=100:H=250;R=70 
50 FOE ang = 0 TO 2*FI STEP 0. 
05 

60 PLOT X1+S!N C ANG)*E,Y1-COS f A 

VC *• -vir- /o 

c-i 

7 0 PLOT X1+SI -W f ANG > *E, Y1 + K COS 
< AWG LR/O 
60 NEXT 

150 FOR ang - 0 TO 2YPI STEP 0 
. 16 

160 PLOT X1-+SIN;'ANG> *R, Yl+COS^ 
ANG)*R/2 

170 DRAW XI+SIN'' ANG) i-E, Y1 ■+ JH CO 

SfANG)*E/2 

160 NEXT 


PROGRAMA 6 

n r"f c* 
j. U L 


20 

REM 

gira un re^ 

ctangulo 

30 

REM 

X y vert ice de inicio 

40 

REM 

h altura, , 

a ancho 

60 

JU V x L 

REM 

inicializa 

variables 


70 x=100;y=100:h=50:a=80 

SO FOR n=0 TO 2*PI STEP 0.07 

90 x=300+SIN<rO JlrlOO 

100 y=200+GOSfn) ^-lOO 

110 PLOT x,y:DEAV x+100,y 

120 EiRAW x+100,y+h 

130 DRAW x,y+h;DRAV x,y 

140 NEXT n 


iniciagOn 

INK. Asi, por ejemplo, si hacemos: 

INK 1,25 

cargaremos el tintero 1 con tinta amarillo limon. 
En el caso de que asignemos dos tintas a un 
tintero, por ejemplo: 

INK 1,2,16 

conseguiremos que ambos colores, el 2 (azul 
brillante) y el 16 (rosa), parpadeen entre si al 
utilizar la tinta 1. 

La velocidad de este parpadeo es facilmente 
modificable, utilizando para ello la instruccion 
SPEED INK, que se acompanara de dos 
parametros, el primero de ellos sera el tiempo de 
presentacion en pantalla del primer color y el 
segundo pertenece al tiempo del segundo color. 

Ahora que hemos visto todo esto estamos 
preparados para comprender el tercer parametro 
que puede acompanar a PLOT, y que cambia el 
color del pixel que iluminemos. Pruebe a hacer 
desde modo 1 o 0: 

PLOT 100,100,3 

Con el segundo punto tenemos una recta. 

Si nuestro ordenador solo supiese pintar 
puntos, poco, o muy poco, es lo que podriamos 
hacer con el, al menos de forma directa. El 
comando DRAW nos va a facultar una nueva 
posibilidad, la de trazar rectas; su utilizacion es 
muy sencilla, asi: 

DRAW 100,200 

nos trazaria una Imea desde la posicion actual del 
cursor, si no ha hecho nada, seria la (0,0), hasta 
el punto (100,200). Al igual que haciamos con la 
instruccion PLOT, puede ahadirse un tercer 
parametro, gracias al cual podremos controlar el 
color de la tinta con que pintamos. 

El programa 2 le ofrece una demostracion de 
como puede realizar un rectangulo utilizando esta 
instruccion; para cambiar el tamaho de la figura 
solo tendra que variar el contenido de las 
variables H y A, que contienen el alto y ancho, 
respectivamente, del rectangulo. Las coordenadas 
X e Y son las encargadas de variar su posicion. 

En el programa 3 volvemos a utilizar la 
instruccion PLOT, en este caso para trazar un 
circulo, para ello hemos utilizado una sencilla 
formula que define una circunferencia. Las 
variables X e Y contienen las coordenadas del 
centro y R contiene el radio. En el programa 3 
hemos realizado una variacion, transformando la 
circunferencia en una elipse, para ello hemos 
introducido en la formula un parametro mas que 
controla la altura, EX, y la anchura EY. 

En el programa 5 hemos trazado un cilindros, 
para ello unimos cada punto de una elipse con 
otro de otra mediante la sentencia DRAW. 

En el programa 6 hemos hecho una pequeha 
mezcla entre el que trazaba un rectangulo y el 
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NCIACK^N 

que trazaba una circunferencia, de forma que el 
origen del rectangulo vamos girandolo a medida 
que vamos dibujando los distintos rectangulos. 

Para los CPC 664 y 6128 existe aiin un ultimo 
parametro que controla el modo de impresion. 
Mediante este parametro podemos conseguir que 
el color con que pintemos interacciones con el 
que ya este presente en pantalla. Existen tres 


modos posibles: 

XOR . 1 

AND . 2 

OR . 3 


y que por ahora no explicaremos, s61o dejamos 
como demostracion de esto el programa 7, que 
da una vision global autoexplicativa de esta 
interaccion. 

El ultimo programa es, finalmente, un pequeno 


juego, en el hemos creado dos caracteres (“A” )■ 
“M”) gigantes que imprimimos a base de 
PLOT’S y DRAW’S. 

Hasta aqui lo que respecta a coordenadas 
absolutas. En un proximo articulo abordaremos 
como estas coordenadas se hacen relativas. 


PROGRAMA 8 

iO CLS 

20 PLQ^ 1-0. riT. 

40 DATA 16,48, 16, ■ 

0 , 0 , 0 ,“ 

'■^0 DATA 0.48, 16. -32. ' ■ 

8 , 0,0 

61 READ X,V 

60 WHILE x'"'0 OP V ■* 

70 .DRAWR x,y 

80 READ 

90 WERD 

100 MOVE 148,-00 
ilO GOTO 5 j 


PROGRAAAA 7 


10 MODE 0 

20 REM demostracion de m^odos 

30 REM XOR,AND,OR 

40 REM .. . 

50 REM modo XOR 
60 GOTO 240 
70 TAG 

80 REM PRIMER RECTANGULO 

90 MOVE 200,200,13,0 : PRINT 

STRING$f6 ,1431; 


230 RETURN 

240 REM PROGRAMA 

250 REM MODO NORMAL 

260 LOCATE 12, 15: PRINT ’’EN MOT 

O NORMAL” 

270 MODO=0 
280 GOSUB 70 

290 LOCATE 1,22: PRINT • ■■■ ivr 
TE MODO PULSA UNA TEGLA” 

300 WHILE INKEYS-=”” : WES D 
310 EEM MODO XOR 
320 CLS 


100 MOVE 200,216;FEINT STRINGS 
'..6 , 143) 


110 MOVE 
(6 ,143) 
120 MOVE 
<6 ,143) 
130 MOVE 
16 ,143) 


200 , 


;PRINT STRINGS 


200,248: PRINT STE:fNG$ 
200,264:PRINT STRINGS 


330 LOCATE 12, 15: PRMOD 
O XOR" 

340 MODO^l 
350 GOSUB 70 

360 LOCATE 1,22: PRINT ”S’f''^UIll 
TE MODO PULSA UNA TECLA” 

370 WHILE INKEYS=”” ; WEN''> 

380 EEM MODO AND 


140 MOVE 200,260:PRINT 


STRINGS 


390 CLS 


<■6 , 143) ; 

150 REM SEGUNDO, RECTANGULO 


400 LOCATE 12, 15: PRINT ”EN MOD 
O AND” 


160 MOVE 248,248, 12, MODO-print 
STRINGS(6 ,143); 

170 MOVE 248,264:PRINT STRINGS 
16 ,.143); 

160 MOVE 248,260:PEINI STRINGS 
;6 ,143); 

190 MOVE 248.296:PRINT STRINGS 
16 ,143): 

200 MOVE 248, 216: PEI JTT SPRINGS 
<6 .143); 

210 MOVE 248,232:PRINT STRINGS 
(6 ,143), 


410 CLS 
420 MQD0=2 
430 GOSUB 70 

440 LOCATE 1,22; PRINT ’’SIGUIEN 
TE MODO PULSA UNA TECLA” 

450 WHILE INKEYS=””:WFND 
460 REM MODO OR 
470 CLS 

460 LOCATE 12.15;PRINT ”FN MO 
O OR” 

490 MODO^^c 
500 GOSUB 70 


220 TAGOFF 
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PTAS. 


PTAS. 

FIST II . 

875 

XEVIUS . 

.. 875 

DEEP STRIKE . 

875 

10th FRAME . 

.. 1.200 

SUPER SOCCER . 

875 

LEADERBOARD . 

.. 1.200 

TERRA CREST . 

875 

EXPRESS RAIDER . 

.. 875 

DOUBLE TAKE . 

875 

ACE OF ACES . 

.. 1.200 

SHORT CIRCUIT . 

875 

IMPOSSABALL . 

.. 875 

ARKANOID . 

875 

SIGMA 7 . 

.. 875 

UCHI-MATA . 

875 

BAZZOKABILL . 

.. 875 

INSPECTOR GADGET .. 

875 

DRAGON'S LAIR II . 

.. 875 

SHAD LIN'S ROAD . 

1.750 

SHADOW SKIMMER . 

.. 875 

SOFTAWARE AMSTRAD DISCO 

2.250 

(Induido regain calculadora) 



C/. Duque de Sesto, 50. 28009 Madrid (Metro O'Donnell o Goya) 

Tel. (91) 275 96 16 - 274 75 02 

gratis a 

"SSfiSf!!!-"' 

' rELOJ DlG'Tfl*- 


SPECTRUM PLUS + 
CASCOS MUSICA STEREO 
19.800 PTS (incl. IVA). 


QfERX^_YOySI>Cl« 



IMPRESORAS 20% DTO. SOBRE P.V.P. 


CABLES E INTERFACES 
20% DTP. SOBRE P.V.R 

CADENA MUSICAL 27.900 PTS. 
VIDEO VMS AKAI 79.900 PTS. 
RADIOCASSETTE STEREO 6.895 PTS. 


SOLiCITA GRATIS 
NUESTRO CATALOGO A 
TODO COLOR, OE 
NUESTROS PROOUCTOS 


RATON PARA AMSTRAD Y COMMODORE CON SOFTWARE 4.900 PTS. 

PEDIDOS CONTRA REEMBOLSO SIN GASTOS 
DE ENViO (si es inferior a 1.200 ptas. se cargaran 

150 ptas). LLAMA POR TELEFONO. ADELANTAS TRES DIAS TU PEDIDO TELF. (91) 274 75 02 / 

(91) 275 96 16 
(Durante las 24 boras) 


SERVICIO TECNICO REPARACION TARIFA FIJA: 3.600 PTAS. 

(induido provindas sin gastos envio) 

CASSETTE ESPECIAL OROENAOOR 3.495 PTAS. Y 3.995 PTAS. 
COMPATIBLE PC IBM 640 K 


PTAS. 
695 
190 
2.890 
2.890 
69 

micRooRWt im 


IAPIZ OPT1CO SPECTRUM 
riMTAC-lS spectrum 


2 BOCAS 360 K 
MONITOR FdSFORO VEROE 
149.900 PTAS. (indido IVA) 


CASSEHE ESPECIAL OROENAOOR 
3.495 PTS. Y 3.995 PTS. 

COMMOOORE 128 . 54.900 

COMMOOORE 128 + TECL. MUSICAL.... 57.900 


■ ■ 
II 


GRATIS UNA IMPRESORA AL COMPRAR TU AMSTRAD!! 

Tiendas y Distribuidores. pidan lista de precios al mayor. Cl. Galatea, 25 28042 - MADRID telef. (91) 274 75 03 





































































Tress 

A 

For Oscar Valladares 

Los jmgos espaciales estdn de moda. Pero el tema que hoy os 
presentanws es un poco mas original. No se trata de destruir 
naves erwmigas, sino de esquivar una serie de obstdculos que 
han colocada en el camino unos aliemgenas del tercer milenio. 


TT 

■ ay que manejar un tan que del ano 

I ■ 3015. Su mision inicial ha side 

aJk re-chazada por el alto mando por lo 
que debe retornar a la base, pero tiene que tener 
cuidado porque los terribles Dertus han 
construido muros con el fin de que no llegue a su 
destino. Como la nave siempre esta en 
movimiento hay que poseer buenos reflejos para 
no chocar contra esos importantisimos muros. Es 
un programa de 13 K y siete bloques, que consta 
de dieciocho apartados: 

— Presentacion. 

— Subpantalla. 

— Instrucciones. 

— Graficos en 3 colores. 

— Jugador. 

— Datos. 

— Pantalla. 

— Base (XZ-1). 

— Crea peligros. 


ESTRUCTURA 


140 Presentacion. 

400 Subpantalla 
470 Instrucciones. 

810 Graficos en trs colores, 
1500 Jugador. 

1590 Datos. 

1630 Pantalla. 

1730 Base (XZ-1). 

1810 Crea peligros. 

1860 Mu eve nave. 

2060 Puntos. 

2190 Limites de pantalla. 

2260 Vidas & Test. 

2390 Desplazador de pantalla. 
2430 Disparo. 

2520 Bonus. 

2560 Felicitaciones. 

2710 Fin de juego. 


Nota: para poder usar joystick es necesario seguir 
las siguientes indicaciones: 

Capslock + Control + K = t 
Capslock + Control + J = J- 
Capslock + Control + H = ■«- 
Capslock + Control + I = —» 


— Mueve nave. 

— Puntos. 

— Limites de pantalla. 

— Vidas & Test. 

— Desplazador de pantalla. 

— Disparo. 

— Bonus. 

— Felicitaciones. 

— Fin del juego. 

El programa tiene algunas llamadas de 
memoria: CALF &BC02, restablece los colores 
del juego y-CALL &BB16, hace la funcion de un 
inkey “ ”. 



VARIABLES 

1$ 

Marca el final del data correspondiente 


al nombre. 

al 

Coordenada del input principal. 

edeS 

Texto del scroll de instrucciones. , \ 

lo 

Longitud de linea. 

kf 

Para el scroll. 

dire 

Direccion de memoria RSX. 

soi 

Lector de datas. 

r h 

Himem. 

al 

Input del jugador. 

li 

Vidas. 

- sc 

Puntos. 

. bo 

Bonus. 

hs 

Ret;ord. 

qw 

Numero de muros. 

h 

Coordenada X del RND creador de 
muros. 

de 

Coordenada Y del RND creador de 
muros. 

na 

Direccion de memoria correspondiente 


al eje X de la nave. 

nb 

Direccion de memoria correspondiente 
al eje Y de la nave. 

o$ 

Teclas. 

po 

Direccion de la nave. 

point 

Test de la riave. ' 

a 

Coordenada X de la nave. 

b 

Coordenada Y de la nave. 

XC 

FN de test de la nave. 

j 

Longitud del eje y del disparo de la 
nave. 

jt 

Tcclas del menu de abandono 
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10 ' mttinuunnuuunnnu 


20 ' 


14444444 

30 nutn 

TRESS 

4444444 

40 ' 


444444 

SO " inn 

por 

44444 

60 nn 


4444 

: 70 OSCAR VALLADARES Un 

80 mn 


44444 

90 ' mut 

WART INEZ 

441444 

100 '%*n%u 


4444444 


110 ■■ t%%t%mn%uumu%nu%mt 

120 CfilL &8C02 

130 tnumminmmnntum 
* 

140 -nmm pfttstNTACiufci %mtm 
* 

ISO '%mu%u%uu%ituututt%%u 
% 

ISO as: INK O.OlBURL'tR OlKODfc 1 
170 lucats i6,2:f£N i:PRiNP>j.”:iac 
Alt i8,2:PtN 2:PRINl''V.":UtCAlt 20. 
2:PeN SlPRINPfi." 

160 LUCAlt 15,4:PEN 2:PRlNT*Ppe5erit 

• ij 

190 POP f=l 10 lOOOlNtXI 
200 OtS 

210 PEN lluUCAlE 32,10:PRIN* "^RESS 
"iLtiCAIE 3,10:PfiINf "'■SESS":LOCATE 
3.?:PRIN1"1h:ESS":LtCAlE 32,.7;PPIN1‘ 
ffitSS" 

220 fufi 61=1 lu lOOlPiR n=0 10 IS 
230 JRIOIN 45S,240:{F NtP TESfli.n) 
=0 IHEN StiSOb 260 
Ml 

250 601 ii 270 

260 SOONO 1.300,1,14;OR!6IJI 166,260 
:PLU1 3iM,3*N,3:RElUfiN 
270 UJCAft 3.17:PfiINf* • 

280 RES!ORE 360 
230 READ i$ 

300 IF !»=**" IHEN 370 
310 s=ASC{U) 

320 PEN 2:PRIN’ II; 

330 SoONO 1 , 3 , 5,7 
340 FOR t!=l 111 50 :NE<' 

3S0 ROTu 230 

360 L'AIA R.e.a,] ,i.r.a,il; 0 ,* ’.p.o, 
T," “,u,3,E,a,f'.V.i.lil.a.d.a.r 
,e,s,'' ’,P!,a,r,t,i,n,e, 2 ,l 


370 LOCATE 3,24;PEN llPRINT'CSPACE) 
para CtiNTINUAR" 

380 CALL 66616:6010 420 

390 ' mtmnnnnt%nt%%n%%%%n 
s 

400 ’■mtmu soBPANiALLA tmuu 

t 

410 

* 

420 ClS.-INK O.OlBORDER OlPloOE 0:601 
0 830 

430 as: INK 0,0:BORDER 0:P10DE 0:F0R 
f=i 10 20:UJCArE f,i:!mif,4:PfiiNr 
:10CA1£ f,25:IfIPUl,4:PRiri:NEXT:F0R 
f=l f0 25:L0CAT£ l,f;im!f,4:PRiRT 
:L{jCATE 20,f: i!1PUl,4:PRINl:NEXl:LOC 
ATE 4,7:P£N UPRINPl^INSTRUCCIONES 
":LOCAlE 4,9:PEN 3:PRIN1•2=J0E60* 

440 iOCATE SilSlPEN 9::PftiNr"aTJA U 
NA OPCION'':iOCATE 6,i7:PEN 2:PRIRT' 
a72)“:LOCATE 2,23:P£N UlPRINfaEN 
TERlpara SE6UiK':L0CAlE 12,1?;PEN 6 
;lNPyr;al 

4S0 ON al 60T0. 490,lS20 

460 'm'iuumtumtiitnunut 

I 

470 ’$%tm lNSlROCCIUNES4S|»¥*St 
* 

480 ' nuitmununmmmtm 
% 

430 NODE l:j¥ 0,.0:PEN 2:af 
SOO PRINT*' JooOpfatoiTE ll,l:P 
EN 3:PRIN1'’-*-- 


Serie 


ORO 


00 


0 0 0000 0 


550 PRINT" 
yOO 0000" 

560 PLOT 1,1:DRAW 640,1,3:PLOT 1,1: 
ORAO 1,338:PL0T l,398:0fiA« 640,398: 
PLOT 639,l:DRA0 633,39e:PL01 1,300: 
ORAN 640,300:PL!]T l,260:DRAii 640,26 
0:PLOT 1,200:DRA0 640 , 200 :plot 1,1? 
0:8RAy 640,170:PL0f i,40:0fiAy 640,4 
0 

570 locate 15,8:PEN l:PRINT"INSIRUC 
CIONES":LOCATE 17,i4:PRINr* TECLAS": 
LOCATE 4,24:PEN 2:PRINT"(SPACE) par 
a CONTINUAR" 

580 OINDOy 17,35,27,16,22:PLN *7,3 
530 PRINT »?,"P= PAOSE" 

600 PRINT 17,"F= ABORT* 

610 PRINT 17,"A= OP " 

620 PRINT #7,"2= OOON " 

630 PRINT 17, "N= LEFT " 

640 PRINT #7,"R= RI6HT" 

650 PRINT t7,“X= FIRE " 

660 LOCATE 3,20:PRINT"PUE0ES OSAR J 
OYSfICK" 

670 lo=20»(l+l)-20*(l=2) 

680 cae$=" fU NISION CONSISfE 
EN PASAR TOOOS LOS NOROS PARA LtEb 
Afi A TO BASE. TEN COIDAOQ P 

OR QOE POR CAOA PONTO 0 BONOS SE DI 
FICOLTA EL JU£6u. LLE6ARAS A ■ 


510 PEN llPRINT" 

00 

0000 0 

0 BASE AL C0NSE6UIR 65000 0 200000 

JJUO LHJOO iWlNl* 



PON'OS 4Sl‘£fif£4 

520 F-RINT" 000 

h 0 

flfi 0 

If 

0 yO “ 



690 IF i.£N(c>3el>\lo THEN cdel=c>3s*+ 

530 PRINT* 0(1 

000 

000 0 

SwACEKio-iENCtdeD) 

IhJO UlXil]' 



’CiO l3i=l£fhcds$) 

£40 PRINT" 00 

0 00 

00 

7i0 y=li 

00 00' 



720 LOCATE i.ylPRINr L£Fr${txl,Io)! 




















730 y.HILt INKty(47)<0 

740 edet=fiIi3l(cS6t.2)+L£fF$(cdsf,i) 

7S0 LQCATt i,y 

760 PfiiSir Ltff${£de$,loi; 

770 yEND 

780 yniLt IWKEYSO* ’':kt=ift)!;tViryeN 
h 

730 CALl 4iBB16:6u1u 430 

800 'itUUUUU%ttiUUiU*Ui%%^ 

m 

I 8!C "m*** GhAFICOS EN 3 CULDFiS * 

’ n% 

820 ■ *OT4!!:y*?J**.t*;i*;t**4:*¥*tt**+*S 

830 DAtA 0,0,223,223,18,127,12? 

840 OAfA 18,288,288,258,255,16,25$ 
880 DAIA 288,15,127,127,144,88,167 
860 OAfA 39,183,0,.12.8,3:144,206 
870 L'AiA 214,198,214,128,144.0,288 
880 OAfA 188,189,280,216,200,248,25 
8 

890 DATA 288,241,49,177,245,159,18! 
900 OAfA 255,16,0,0,0,120,0 
310 DAIA 0,16,80,14.238.150,242 
920 OAfA 238,14,80.1,39.75,47 
I 930 DATA 135,17,C,1,128,125,15 
940 DATA 219,14,128,0,0,0,0 
950 MODE OIClSiBuRDEE Ollte, O.OlLUC 
ATE S,12:PRINr"Fl£ASE yAIf"; PL-jT i 
,l:DRA« 640,1,UlPLDT l,l:DRAy 1,39 
S.lSlPLuT l,398:DfiAy 640,398,14 
1 639,i:DRAy 639,398,15 
960 h=HIK£l1 
970 RESIDftE 830 
98'.' sir8=h:Fi>' S'::=i 'j 02 
990 READ b 
lOOO Poke 
•viv uipe=oire-‘l 
1020 R£Xf 
1030 RESTORE 1240 


1040 b=fiIf!£H 

1080 POKE 0,0:h=h-182:diret=h:i1tHOR 
t (h'l) 

1060 FOR t=l TO !92:READ a» 

1070 p=yAi("5“+a$.l;PiJK£ clire£,p 
iObv dir6£=dir'KCT 1 
1090 NEXT 

1 100 r=fi+9:a=INT(r/256):b=i-(a*256) 
lilO POKE h+l,b:POKE h+2,a 
1120 r=h+l?:a=INT(p/286)lb=r-(a*2S6 

f 

1130 POKE h+4,b:F'0KE h+5,a 
1140 p=h+2l:a=fNr(p/2S6):b=P‘-(a4:286 

1180 PfiKE.b+9,b:P0KE h+lG,a 
1160 P=h+30:a=INf{p/2$6);b*p-(al:2S6 
) 

1170 POKE b+41,p;F'0KE h+42,a 
1180 POKE f!+63,,p;p!JK£ t)+64,a 
li5C' p=n+31,'a=lNT (p/256):b=p-fa*256 

1200 PuKE h+122,b:F'0<E b+l23,a 
1210 p=f'*194:a=!*i:{r72.36;:b=r-i:a*2S 

ii 

1220 POKE h+3l,b:Kri(t H+32,a 
1230 call p, 

1240 DATA 01,29,4e,2:,3l,4e,c5,,Cl 
1280 OAfA be,35,4e,18,18,00,18,11 
1260 DATA 00, CO, 00,00, 00,4ij,SO, 58 
1270 DATA d4,47,.50,S5.d4,00,00,3v 
1280 DATA 78,f5,af,18,03,f5,3e,0l 
129:/ DATA 32,3e,4e,fl,a;,c8.47,f8 
1300 DATA dd,23.dd,23,10,ra.tc,:! 
1310 DATA bc,47,3e,02,90,f5:3a,3a 
1320 DATA 4e,a7,28,0a,cd,78,bD,2d 
,330 CA'A 28,cd,la,be,It, 10 .id,c6 
1540 DATA bb,b7,co,ic,tD,l(3 £d,ll 
i3S0 OAfA be fi,f5.a7,26,08,47,07 
1360 DATA to :a,cb,l&,10,f9,(cl,Id 
1370 DAIA bf,fl,cl,c5:fS,dd,2b,(Jd 
1380 DATA 2b,4f,06, 03,80, 47,79,fS 
1390 DATA ed.5b,3f,4i,«,6e.00.26 


1400 DATA 00,29,10,fd,19,eb,el,87 
1410 OAfA 20,01,3c,4?,cS,e8,06,08 
1420 DATA 3a,0S,00,a7,2e,09,fe,01 
1430 OAfA 28,0b,f6,02,la,18,08,la 
1440 DATA a7.28,05,18,02,la,ae,77 
1460 DATA cd,26,be,13,10,62,el,cd 
1460 DATA 20,b£,£l,10,d?,fl,cl,10 
1470 OAfA b2,£9,00,00,00,00,00,00 
1480 GOTO 430 

1490 ‘mmmmmmmum-m 
K 

1500 juGADOR 

% 

1610 ' uuuuiit-mumnnuxtn 
* 

1820 NDDh 1 

1530 FOR f=2 fO SOllOCATE f,2;!NP0r 
,o:PRINT:LOCATE f,24;IMPOT,0:PRINT: 
NEXTlFOR f=2 TO 24;lQCAT£ 2,f;INPUT 
,0:PRINT;LOCATE 39,f;INPUT,0;PRINT; 
NEXT 

1840 FOR f=3 TO 38;L0CATE f,3;INPUT 
,2;PRINT;LOCATE f ,23; INPUT,2;PfiINT; 
NEXT;FOR f=3 TO 23 ;lOCATE 3,f;INPUT 
,2:PSiNr;L0CAr£ 38,f: input, 2;pfiiNf; 
NEXT 

1550 INK 0,0;8fJRDER C;FOR f=I TO 40 
;LOCAf£ f,i;INPUT,4;PfiINr;L0CAT£ f, 
25;INPUT,4;F'RIN1;NEX1;F0R f=l to 28 
;LOCAT£ i,f; INPUT,4;PRINT;L0CAr£ 40 
,f;INPUT,4;PRINT;NEXT;LOCATE 9,8;PE 
N 1; PfilN T“tKt;|!J*l:JU6A0ofiKt JKttKKf'; 
LOCATE 13,12;PEN 3;F'RINT"N0NbRE ; 

1660 LOCATE 11,10;PEN 2;PRINT“( SOL 
•j 3 IcfRAS '“iL'iCAfE 4,20;PFN i;/2I 
NT"(ENTER) papa CoNlINUAR'lF'EN 2;Lu 
CATE 20,12;INPUr;a$ 

1570 NODE 1;lOCATE 16,23;F'RINT(hs) 

1 580 ■ nunnnuiimunmttm 

m 

1590 DATOS mmtm 

m 

1600 ' itmnmntunmmmm 
m 

l610 ii=5;5£=0; bo=0: bs=hs;qi/=3G 

1620 ' uuumntuututiutuut 
un 

1630 ’munm pantalla 

jptfj 

1640 'nm'mnnnmmmmm 
tm 

1660 NODE l;INK 0,0 

>.6i> yiNDOy #2,35,6,3, 19 ;PAPeR 12.0 

:BORDER 0;PEN #2,2 

16."0 FOR T=2 TO 19;lOCAT£ 5,f;P£N 1 

: :NPUT,2;PRfNT;L0CAlE 36,f;INPl',2; 

p'R1n;';NEXT;FOR f=S Fj 36;LOCAT£ f,2 

o;INPUT,2 ;print;LOCATE t,2;INPUT,2; 

PRII*r;NEXr 
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1680 LtlCflTE 5,22: PEN 2: Pfi I NT "SCORE 
: LOCATE 5,23:PRlNr“HI SCORE : 
LOCATE 2S,22:PRINT"LIVES : "ILOCAIE 
2S,23:PSINr"PLAV£fi ;";LOCAfE 5,24: 
PRINT"80NUS : "ILOCATE 2S,24:PRINT* 
PAUSE ; " 

1690 PLOT S0,0:DRAiii SO,400,2:PLOT 6 
O.OlORAy S88,0:PL0T 588,0:0fiAy 688, 
400:PL0T S0,399:DRAy S88,393:PL01 6 
4,I0:0fiAtf S72,10:PLOT 62,10:DfiAy 62 
,72:PL0T 62,72:0RAy S72,72:PL0T 672 
,iO:ORAy 672,72 

1700 locate 33,22:PRINT (liTlLOCATE 
16,22:PfiiNf {5£):L0CAT£ 16,24:Pfi!s 
T{bo): lOCAT E 16,23: PRINT(hs):LucAT E 
33,23:PRINf (3$) 

1710 Goto 1830 

1 720 ■■ n%tn%nunmtnn*nnm 
%ut 

1730 BASE (K2-1) tUtU 

uu 

1 740 ' tunnmnttmntmmm 
uu 

1760 CLS I2:P0R f=6 TO 17:L0CA1E f. 
15:P£N 3:iHPUf,0:PRINf:N£)i;T:f0fi f=2 
2 TO 3S:L0CATE f,16:!l1?U1.0:PR!NT:N 
tn 

1760 FOR f=6 TO 17:L0CATE f,14:PEN 
3:l«PUT,0:PftINf:N£rT:F0fi f=22 TO 35 
:LOCATE f,14:iKPUT,0: PRINT: NEXT 
1770 FOR f=16 TO 19:L0CAT£ 6,f:l«Pl' 
T,0:PRINT:LOCATE 35,f: IMPUT,0:PRINT 
:N£Xr;yiNDOy l3,16,6,3,13:PAP£fi 13, 
i:CLS #3:yiNDoy 14 , 35 , 23 , 3 ,i3;paper 
# 4,l:CLS #4:F0R f=3 TO i3:L0CAf£ 1 
7,f:IMPUT,o:PRINT:LOCATE 22,f:iHPUT 
,o:PfiiNf:N£xr 

1760 FOR f=7 TO 34:LOCATE f,l8:PEN 
2:PRINf CHfii(U3):N£Xf:L!JCAf£ 11,19 
:FtN 3:PRINT"eiENVENI0o A (X2-1)*: 
GOfu 1880 

1790 ClS i 2:F0R f=3 TO 17:LOCATE 6, 
f: iiiPUf,o:P8iNf:LOCAf£ 35,f:imir,o 
:PRINT:NEXT:FOR f=7 TO 34:uOCATF f, 
17: INPUT,0:PRiNf;LOCAf£ f,16:i'£N 1: 
PRINT CHRt(I43):NEXl:L0CATE 13,16:P 
£N 3:PftINT”fi£PARACI0N£S":S0Tij 1880 
1800 -'uuuttuunuiintiuuu* 

Uit 

1810 -'tmum CREA PELI6R0S 

mt 

1820 '%%UUUti%UUUUttU%UtU 
iut 

1830 FOR f= 1 TO (qt(T;cl6=INT{W16 
)+4:h=INT{ftN0*2e)+6:L0CAT£ h,d8:I"? 

ut,o,o::print inext 

1840 FOR f=6 TO 35:L0CAT£ f,4;Pr!INr 
" ":locate f,3:PRlNT* ”;next;gotl i 
880 


1860 "titUU%iU%UUUUU%iUU% Serie 

tm 

1860 'tmun HUEVE NAVE umutt 
uu 

1870 ' muuuuuuuumtuun 
uu 



1880 f3=l6007:tb=16008 
1890 POKE fa,20:P0K£ f&,4 
1900 0$=INKEV$:INK 0,0:6uRL'ER 0 
1910 IF o$="n" Oft oi=* OR oi='N" 1 
REN po=3 

1920 IF o$="«“ OR o$=" " Oft oS="H" 
HEN po=4 

1930 IF ot="a" OR o$=" 

" UR o$='A' ^ 

HEN po=l 

1940 IF ol="i" Oft oi=" 

" OR o*="2” THEN po=2 

1950 IF oi="f' UR o$="F' THEN GOTO 

430 

1960 IF o$="p" OR ot="P" THEN LUCA 
f£ 32,24:PRINT » On "lyHILE INK£Y$< 
)"p“:UEN0:L0CATE 33,24:PftINl "Off" 
1970 IF oi="x" Oft o$=‘X" Oft o4="X" 
THEN GOTO 2430 

1980 OEF FN poirit{a,b)=f£Sf(!'aS16)- 
2,(406-b*i6)) 

1990 a=P£EK{fa):b=P££KCfb) 

2000 IF po=0 THEN po=4 

2010 IF po=3 THEN a=3-l 

2020 IF po=4 THEN a=a+l 

2030 IF po-1 TKEN b=b-l 

2040 If po=2 THEN b=b+i:sc=sc+100:L 

OCATE 16,22:PftINf (sc) 

2050 ' X** 

2060 ‘%%muu PUNT OS muuut 
UU 

2070 'UUUUUiUUUUUUUmt 
UU 

2080 If SC-10000 AND ll>3 THEN 2640 
2090 IF SC-30000 ANO ii>3 THEN 2540 


2100 

IF sc=60000 AND I 

1)2 THEN 2540 

2110 

IF sc=65000 then 

GOTO 1730 

2120 

IF sc=30000 ANO I 

1)2 THEN 2540 


IF sc=l30000 ANO 

Ii>=2 THEN 26 

40 



2140 

IF 5c=150000 and 

ii>=2 THEN 26 

40 

2160 

IF 3C=200000 ThEN 

GOTO 1730 

2160 

IF sc=2l6000 THEN 

GO TO 2680 

2170 

IF 5C>ri5 THEN h5= 

sc: LOCATE 16,’ 

23:PftINr ins) 


2180 

uuuuuuuuuuuuuuu 

2190 

UU LI HITES DE 

PANT ALLA 

UU 



2200 

' u%%%%utuuuuuuuutiu 




2210 

Ir a=b IfilN a=o4 


2220 

IF b=2 THEN b=4 


2230 

IF b=lS THEN GOTO 

2410 

2240 

IF a=35 THEN a=7 


2260 

’umuuuuumuuuuxu 

UU 



2260 

’UU%%UU VIDAS 

i TEST tUU 

UU 



2270 

’tUiUUUUUtU'UUfUUUt 

UU 



2280 

IF !i=0 THEN CLS 

#2:L0CATE 16, 

9:PftINf"6Ah£ iJV£ft":fUft 

; f=l fU iOOO: 

NtXT; 

iGulO 1620 


2290 

ye=FN point{a,&) 


2300 

IF re=3 THEN ENV 

2,1,14,1,14,- 

1,20: 

ISUUNO 4,0,0,0,2,C 

s,i 6 :uuf iecoo 


,8:0UT iB000,l:f0R 2=0 TO 26:INK 0, 
2 :eufti)£ft z:fuft Y=i ru so:NFxr y,Z:u 
UT 4BCOO,6:OUT XiBi)0C,0:li=h-i:LL!CA 
T£ 33,22:PftINr flDlLUCAi'E 3+l,b:P8 





















Serie 

ORO 


I INI" ".-LCiCftlt a-l,b:ffiIN1" "rltieAlt 
! a,b+l 

! 2310 If re=2 THtN 6010 1790 
j 2320 If re=l THEN CLS l2:LUCftfE 12, 

! 7:ftN l: PRINT "BONUS" .-LOCfilt i5,13;p: 
RINf'NIva 2":sc=5£+i0000:bo=bd+l;L 
OCfiTE i6,24:PRINUbo):LuCAlt li,22: 
PRINT (scIlSOUNl) 1,200,90,15: l’>ii+ 
3:LOCATE 33,22 :print' >.ii):s?»=(iw+20: 
fOR f=i TO 1200:NEKr:6i)f0 2410 
2330 If a=PEEic(fa) AND b=PEEK(tbi ■» 
HEN 2350 

2340 LOCATE a,b:If po=0 OR P0=3 TH 
£N PEN 3:lNPUf.3:PRINf;£LSE INPUT,1 
: PRINT 

2350 LOCATE PEEK(fa),PEEK<tb);f‘RINT 

i; ti 

2350 POKE fa,a:POKE fb,b 
2370 eOfO 1900 

2360 ■■ imunmuiumiUUUMt 
2390 "m$ DESPtAZADoR OE PANT ALLA 

' **** 

2410 fOR f=l TO S5;de=l»:T(kND*22)H 
:L0CAfE #2,7,d6:PRINf it2,‘ “:N£Xf:6 
OTO 1830 

2420 ■■****i****ttJ*W'«*l3:i«.t*tlJJ 

i*** 

24:30 ************** OISPARO ***«*» 

it** 

2440 ’ iiittttttttttiixt mttttxuts 

m* 

2450 PEN i2,::If po=2 IrtN 6010 245 
0 ELSE 2490 

2460 SjvN, 2,500 12 :5,C 0.1:fOR )- 
b ’9 3+;’.* 

2470 :► j?i6 h:tt ilMi »2,»-5.j-l 

iPrilNf *2/ .430 

2480 lOCATc #2,a-5.;;->;sl *2 
i24kl(JC4.e *: ’ 

EXilLuCA'E #2.a-- ,;:K*'-;N' ’ ' 

2490 ¥J''i -si;:) 

2500 R'TL^N 

29.0 

UiX 

,-:i0 tntutiiittii s'.'NOS ‘■tifitsi 

t*il 

2540 sC=?r+9000:'JCSTl it 22^'fNf 



{5£);bo=boti:iijCATE lb,;24:PftiNT{bo) 
;SOOND 1 f i00,50,15;g«=q«-J'10: ii=]i+! 
ILOCAlt 33,22:i^lNT CiDlGCTO 1900 
2550 '•****'************************* 
mi 

2560 ******** EELICITACItiNES ***** 
**** 

2570''***************************** 
**** 

2580 ClSIKuDE 0:1M 0,0;3llf,DER 0:fD 
fi M TO 20;i.y(;AfE f.,i:}NPOr,A:PfiIN 
T:iOCATE f, 29: i*PaTT 41PRI Nl: NtXT: f0 
fi f-l 'iaSllOCATE-l,f:iNPur,4»^ 

1 IluCAIL 20,^5input, ilPRIN’lNtX-; 
2990 lUCATE 4,5:PtN l:PRIN;*f":jJ.A 
‘iE 5.S:PtN 2:PkINT"E’:aCA:E 5.5:ft 
N 3 :pR!N'“;.":ldCATE 7.5:PEn 6:PR[n 
^ i'li'AAT- SfSir'EN Slr'niN' ■’i,*lLDCAl 
E 9,.9:PEN 7:PRINr"-:":LjCA>£ 10,5:P£ 
h 8 :prini'''.':!.iica-!E ii,9;PtN ;o:h.; 
N'"A‘:LuCArE i2,5:PtN H:PRI‘.r*C“ 
2600 LOCATE !3,5:PEN :t • 

CATE l4,5:PtN 13:PRINT'D":UJCAft IS 
,S:PEN 3:PRlNrN*:,i;CAlE 19,S:fEN 4 

:?Rl»r'e*:ujcAr£ l^5:PEN 9:*^RiNf':s 

0 

2610 LuCA'iE 9,7;PtN 6t*'klN'''_L-‘':Lj<. 
A't 5,io:PtN i;PR[*ir'CjN9EsU!i-E*:L 
CCATE 8,14:PEN 3 :pr;ni'---*:ilCAil 
8,13lPa O.-PRlNru* 

2&0 LOCA’E 3,i6:PEN 2:PRiNT'SCL’RE 
* 2i5000*:'LOCAr£ 2,23:P£I* 8:?K:INP'. 
SPfKtlpara SEWIN' 

2530 cal,. iOftieifeii J 2640 

2640 -LSlf'Ui OllNK 0,C:liJRDLR 0:Nij 

t-E 0:f'>P f~: 'j i...'CA'E f.-: W' 

I 25: i‘'‘:T-*:P'':NT: 
iJUfiiOri fii fu 29;uCAr^ . f; 

, 4;!’r-: 'I:: 'TPlE 20,t:. 1i:b’ ,4p-p[N:; 
NU' 

2^0 '.fcAT: e,6lP£» SjPRlNT'Tg gust 
iru^tLtXm €Mm 2:PRllir'2ti^f 
ctf^RiiKAlL 6,!'4 P'ev ::fRlNi*®arti 


da ?*:L0CAT£ 8,i3:P£N 8:PRINT"fS/N) 

a 

2660 Jt=INK£V$ 

2670 IP J»="S" OR J»="s" 1HEN GuTD 
430 

2680 If Jt=‘N" OR Jt="n* THEN GOTO 
27:30 

2690 6010 2660 

2700 '***************************** 
2710 ■■** 60RRAOO DEL JUE60 ** 

2720 "mimmmmmmmim 

2730 CLS.-NODE 0:INK 0,0:B0RDER G:N0 
£€ 0:FiJR f=l TO 20:LUCAT£ f,i:iNPur 
,4:PRINT:LOCATE f,25:!NPUT,4:PRINT: 
N£XT;fUR f=i nj 25:LOCATE t,f: INPUT 
,4 ;PRINT:locatE 20,f:INPUT,4:PRINT: 
NEXT 

2740 LuCATE 6,5:PRINl“ENT0NCES;NUCti 
d“:lOCAT£ 6,7:?EN 2:PRiNr"6U3rO C€ 
"TtUCATE 6,9:P£N l:PRINT"HAeER JU6A 
OD'IlOCATE 6,li:PEN 3:PfiINf"CJNri6C 
":iliCATE 3,24:f'EN 3:PRINT"fSPAC£)pa 
ra fIN":CALL 58616:6010 2750 
2790 '■uOE 1 :CLS:CALl 58C02;0tLt’t i 
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Sicole 


de Multisystem 

SICOLE es un programa 
para la gestion administrativa 
de centres docentes. La 
aplicacion esta adaptada para 
resolver los habituales 
problemas en el campo de la 
ensenanza. La capacidad del 
programa permite la 
introduccion de los dates 
correspondientes a 1.000 
alumnos, 500 entidades 
bancarias, 100 paradas de 
autobus y 40 conceptos 
repercutibles en conceptos. 

Es evidente que, si bien, 
puede resultar insuficiente para 
los centres docentes de mayor 
capacidad, la capacidad del 
programa resuelve los 
requerimientos de la mayoria de 
los centres. 

El programa ha side 
desarrollado exclusivamente 
para el ordenador Amstrad 
PCW 8512. SICOLE se ejecuta 
mediante un fichero de tipo 
profile sub, que antes de 
ejecutar el programa redefine el 
teclado, copia todo el disco de 
la unidad A al disco RAM. 

Una vez que el programa ha 
arrancado, actualizaremos la 
fecha almacenada y pasamos a 
acceder al menu principal que 
presenta dos opciones 
fundamentales: Fin y Menu. 

A) Fin ejecucion programa: 

La presente opcion se encarga 
de preparar el programa para 
su desconexion tras finalizar 
una jomada de trabajo. Elio nos 
evita perder los dates que se 
han acumulado en la jornada, 
al desconectar el suministro 
electrico, ya que de esta forma 
quedan cerrados todos los 
archives. 

B) Menu de opciones: 

Esta opcion nos da acceso a 
las cuatro opciones principales 
con que cuenta el programa, 
que a continuacion referimos: 

1. Gestion de ficheros: 

Mediante la presente opcion 
podemos elaborar y consultar 
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las fichas personales de los 
alumnos. 

Asimismo, se pueden 
modificar dates personales y 
eliminar las fichas que no se 
precisen. 

Para sistematizar las 
subopciones que incluye la 
presente opcion pasamos a 
continuacion a citarlas: 

— Ficha de dates personales 
de alumnos. 

— Ficha de asignacion de 
conceptos de alumnos. 

— Ficha de recibos emitidos 
a los alumnos. 

— Asignacion de conceptos. 

— Conceptos repercutibles en 
recibos. 

— Entidades bancarias de 
domicializacion de recibos. 

— Paradas de autobus. 

2. Gestion de recibos: 

Todo lo relacionado con la 
emision o actualizacion de 
recibos, puede gestionarse 
mediante esta opcion. 

La impresion de los recibos se 
realiza sobre papel estandar y 
una vez que se ha 
confeccionado el recibo, los 
datos que engloba son: 

— Total a pagar. 

— Fecha de emision. 

— Nombre del alumno. 

— Direccion del alumno. 

— Tutor del alumno. 

— Conceptos en los que tiene 
que abonar el alumno. 

— Entidad bancaria que se 
encarga del pago. 

— Direccion de la sucursal. 

— Numero de la cuenta 
sobre la que se va a cargar el 
recibo. 

3. Informes y listados: 

Los listados que se pueden 
llegar a imprimir son de seis 
tipos y comprenden: 


— Listado general de 
alumnos. 

— Listado de alumnos por 
conceptos. 

— Listado recibos ordenado 
por entidades bancarias. 

— Listado general de recibos 
emitidos. 

— Resumen por cursos de 
recibos emitidos. 

— Listado de ficha completa 
de alumnos. 

Por otra parte, la segunda 
parte de la presente opcion 
permite la emision de etiquetas, 
lo cual comporta un ahorro 
importante de trabajo en los 
centros docentes en tareas como 
la emision de circulates, etc. 

4. Otras opciones: 

Para finalizar, esta opcion 
consta a su vez de dos 
subopciones: 

a) Procesos, ficheros y 
utilidades. Permite definir los 
parametros de la impresora, el 
tipo de letra a utilizar, 
establecer los datos del propio 
centro e inicializar un disco de 
datos. 

b) Instalacion del programa. 
Posibilita la clasificacion de 
alumnos y los bancos, realizar 
copias de seguridad y un disco 
de trabajo. 

Por ultimo, solo nos queda 
hacer un pequeno comentario 
sobre la proteccion del 
programa. SICOLE cuenta con 
un sistema de proteccion de tipo 
hardware, que consiste en una 
pequena placa de circuito 
impreso que se conecta al 
ordenador a traves de su salida 
trasera. 

Ademas, para acceder al 
programa se solicitan, en 
distintas partes del mismo, 
claves de acceso. En definitiva, 
nos encontramos ante un fuerte 
sistema de proteccion, que nos 
asegura la dificultad de acceso 
al programa por personas ajenas 
al mismo. 


Alistocks 

de Alsi Comercial 

El presente programa se 
encarga de la gestion de stocks, 
y para ello consta de 10 
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ficheros, en cada uno de los 
cuales se introducen multiples 
dates, como a continuacion 
referiremos. 

Una vez cargado el 
programa, aparecera en la 
pantalla el primer submenu que 
consta de las siguientes 
opciones: 

1. Abrir nuevo fichero: 

A1 pulsar esta opcion 

precederemos a nominar los 
ficheros que se precisen, segun 
nuestro propio criterio. Los 
ficheros de que consta el 
programa son 10 y para poder 
trabajar es necesario abrir, 
como mmimo, un fichero. 

2. Cargar dates: 

Una vez seleccionada la 
opcion, se muestran en la 
pantalla los ficheros que 
hayamos abierto previamente. 

Para comenzar a introducir 
los dates, basta con seleccionar 
el fichero con que vamos a 
trabajar y se precede a su 
confeccion. 

3. Borrar ficheros: 

En el case de que alguno de 
los ficheros introducidos ,no nos 
resulte de utilidad, la presente 
opcion permite su exclusion y 
con ello la posibilidad de 
introducir otros nuevos. 

4. Dates: 

Mediante esta opcion se 
puede inicializar la impresora y 
el margen general de beneficios 
con el que habitualmente el 
usuario trabaja. 


1. Introduccion 

Para poder utilizar 
posteriormente las demas 
opciones del menu principal es 
necesario la introduccion de 
dates. 

Una vez seleccionada la 
opcion, el ordenador nos 
cuestionara sobre las 
caracteristicas del producto para 
que este quede adecuadamente 
resenado. Los dates que definen 
cada articulo son los siguientes: 

— Codigo (maximo de 9 
digitos). 
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— Nombre del articulo. 

— Precio de venta del 
articulo. 

— Cantidad minima de la 
que se desea disponer en stock 
del articulo. 

— Margen de beneficios. 

— Cantidad en stocks. 

2. Modificaciones: 

Si per motives de variacion 
de precios de los articulos, error 
en la introduccion de dates o 
cualquier otro motive 
requerimos seleccionar la 
presente opcion. 

a) De articulos: 

Una vez seleccionado el 
articulo a modificar, per su 
codigo, precederemos a variar 
la caracteristica del mismo que 
deseemos. Asimismo, pulsando 
la letra «P», podemos aumentar 
o disminuir los precios de todos 
o parte de los articulos de que 
estamos trabajando, o de los 
seleccionados. 

b) Entradas de articulos: 

El ordenador nos preguntara 
la fecha en la que se efectua la 
entrada de articulos, el codigo 
del articulo al que le queremos 
efectuar la entrada y la cantidad 
que entramos. 

c) Salida de articulos: 

Nos permite efectuar una 

salida de articulos respondiendo 
a las preguntas que el 
ordenador nos hace en este 
sentido: fecha, codigo y 
cantidad. 

3. Listados 

Esta opcion consta de dos 
apartados: 

a) De articulos: 

a.l) Por codigo: nos permite 


18 AMSTRAD Semanal 


extraer, tanto por pantalla como 
por impresora, un listado de los 
articulos del fichero en el que 
estamos operando. 

a.2) Codigo a codigo: nos 
facilita un listado de los 
articulos comprendidos de un 
codigo a otro codigo, tanto por 
pantalla como por impresora, 
todos los articulos comprendidos 
entre estos dos codigos o solo 
los que esten bajo minimos, con 
precio de coste o sin el. 

a. 3) Alfabeticamente: nos 
facilita un listado alfabetico de 
los articulos incluidos en el 
fichero en el que estemos 
operando y en diversos aspectos 
del mismo. 

a. 4) Directorio del disco 1. 
a. 5) Directorio del disco 2. 

b)Entrada y salidas: 

El ordenador nos facilitara un 
listado del fichero de entradas y 
salidas en las que incluira el 
nombre y codigo del articulo, 
fecha de las distintas entradas y 
salidas y valoracion de las 
mismas en cantidad y precio. 


4. Busqueda, borrado: 

Esta opcion nos permite el 
borrado de articulos. 


5. Datos: 

Esta opcion nos permite, 
pulsando la opcion numerada 
correspondiente, la modificacion 
del porcentaje general de 
beneficios con el que 
normalmente trabajamos o la 
velocidad en baudios de nuestra 
impresora. 
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Una de las caractensticas 
fundamentales con que cuenta el 
GEM BASIC, es la amahilidad de 
su editor, tremendamente fdcil, de 
utilizar. Ann con eso, por su 
especial naturaleza, al principio 
puede resultar algo «chocante». Si 
usted es primerizo con este 
interprete este articulo le resultard 
indispensable. 




La version de Basic que acompana al Amstrad 
PC 1512 tiene varias diferencias con la mayoria 
de los Basic’s que se conocen. Si bien los 
comandos son muy similares, la manera de 
operar, debida al entorno GEM en el que se 
incluye, resulta mas atractiva, aunque quizas mas 
confusa al principio. 

El editor 

La primera diferencia con respecto a lo normal 
se encuentra nada mas cargar el Basic 2 desde 
GEM. En lugar de la habitual pantalla unica, 
con el mensaje indicativo y el cursor, aparecen 
tres ventanas llamadas Dialogo, Edicion y 
Resultados 1. En la ventana de dialogo aparecen 
los mensajes habituales asi como el cursor, y es 


donde aparecen escritas todas las ordenes que se 
tecleen. No hay que confundir ese cursor con la 
flecha, que es lo que se maneja con el raton, y 
cuyo uso se vera mas adelante. 

La segunda ventana, de izquierda a derecha, 
es Resultados 1. En este aparecen los resultados 
de las ordenes directas, excepto List y Edit, y la 
tercera ventana, edicion, que es donde se teclea o 
visualiza un programa. Existe otra ventana 
llamada Resultados 2 que permanece oculta, 
aunque se pueda activar cuando se desee. 

En otras palabras, se teclea la orden: 

PRINT 7 ± 

saldra visualizada la orden en la ventana de 
dialogo, pero el resultado aparecera en resultados 
1. Y si se teclea; 

EDIT 
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el resultado se hara visible en la pantalla de 
edicion. Las ventajas de esto son que se puede 
hacer funcionar un programa viendo 
simultaneamente las Imeas que se ejecutan en 
una ventana y los resultados del programa en 
otra. Esto siempre que el programa no modifique 
las condiciones de presentacion de las ventanas, 
cosa que se puede hacer y se vera en un proximo 
articulo. 


I la pantalla esta dividida en 
tres ventanas, una para la 
edicion, (dra para los 
resultados y una ultima para 
el didlogo. 


Claves del 

GEM BASIC 

Las diferencias no acaban aqui. La primera 
Imea de la pantalla es la de menus. Se activa 
mediante el raton y desde ella se realizan 
funciones que van desde el manejo de ficheros 
hasta cambiar los valores implfcitos de la 
ejecucion. Esto facilita en gran manera la prueba 
de los programas, y evita perdidas de tiempo 
tecleando ordenes. Veamoslos mas 
detenidamente. 


Los menus 

El menu de Ficheros permite cargar, salvar un 
programa o salir del Basic 2. Las funciones de 
grabacion y lectura se realizan con los menus 
habituales de GEM. 


Todo el tratamiento de los 
programas grabailos en un 
disco pueden realizarse de 
forma sencilla desde la barra 
de menus. 


El menu Programas permite ejecutar un 
programa, pararlo y continuar su desarrollo, 
editar o listarlo, borrar la memoria y definir los 
angulos en radianes o grados. 

El menu Editar posibilita defmir grupos de 
Imeas que luego se pueden mover, copiar o 
borrar, asi como activar y desactivar el modo de 
insercion y renumerar las Imeas de programa. 

El menu Puentes presenta los estilos de letra 
disponibles, los tamahos en los que se puede 
escribir y si se desean efectos como el subrayado, 
tenue, cursiva o negra. Cuando se cambia algun 
parametro de estos a traves del menu, esta 
condicion queda vigente hasta que se cambia o se 
sale de Basic, mientras el programa no ordene 
otro tipo de letra. En otras palabras, queda como 
valor por defecto. 

El menu de Colores da a elegir los colores por 
defecto de las pantallas graficas y de las de texto, 
de manera separada. Igual que la anterior, 
mientras el programa no ordene otra cosa estos 
valores quedan implfcitos. 

El menu de Tramas sirve solo en modo 
grafico, y da a elegir entre 38 distintos rellenos 
para las figuras. 

El menu Lfneas permite escoger entre seis tipos 
de trazados diferentes, cuatro grosores y la 
posibilidad de acabar las lfneas como puntas de 
flecha, tambien de tres maneras distintas. Como 
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Claves del 

GEM BASIC 


La ausencia de numeros de 
Imea, aunque al principio 
pueda resultar incomoclo, 
acaba convirtiendose en una 
gran ventaja. 

los dos anteriores, solo tiene utilidad con la 
ventana en modo grafico. 

El ultimo menu es el de Ventanas. A traves de 
el se puede activar o desactivar cualquier ventana 
de las disponibles. 

Muchas de estas funciones se pueden realizar a 
traves del teclado, cosa que resulta mucho mas 
comoda una vez aprendida, pero para empezar 
resulta muy sencillo utilizar los menus, salvando 
el hecho de cambiar de teclado a raton y 
viceversa. 


Los programas 

Como hemos dicho antes, la mayoria de los 
comandos del Basic Microsoft y otros parecidos 
se pueden utilizar con este Basic. No obstante, y 
aunque queda para otro articulo un examen mas 
profundo de los comandos de Basic 2, hay una 
diferencia entre uno y otros. Basic 2 no necesita 
numeros de linea, y decimos necesita, porque 



tampoco le estorban, pudiendo funcionar 
perfectamente con ellos. Pero. simplemente, no le 
hacen falta. 

Mas de uno se estara preguntando que pasa 
con los GOTO’s, los GOSUB’s, etc. La solucion 
es muy facil. Las etiquetas. A cada subrutina se 
le pone una etiqueta o nombre, poniendo antes el 
comando Label, y luego basta decir goto lo que 
sea, para que el programa se dirija alli. La 
estructura sena, pues, asi: 

REM PROGRAMA QUE NO HACE NADA 

GOSUB subrutina 

END 

LABEL subrutina 

REM AQUf EMPEZARIA LA SUBRUTINA... 
RETURN 

y en un programa de unas cuantas Imeas, es mas 
facil acordarse que la subrutina se llama Menu, 

—por ejemplo— que el que este en la Imea 2150. 
Otra posibilidad, para los que prefieran el viejo 
sistema, es numerar solo algunas Imeas, y hacer 
GOTO’s y GOSUB’s normalmente. Esto se hara 
ash 

REM OTRO PROGRAMA QUE NO HACE 
NADA 

PRINT “PULSA UNA TECLA...” 

A$ = INKEYf: 

O IE A$ = ““ THEN GOTO 10 
PRINT “NO TAN EUERTE jBRUTO!” 

END 

Pero para los menos dados a cambios, se 
pueden numerar las Imeas, normalmente como 
en cualquier otro Basic, y hasta renumerarlos. 

Conclusion 

Como se puede ver, el editor del Basic 2 es 
diferente a otros. Pero, aunque sobre gustos no 
hay nada escrito, la impresion general es 
favorable, siendo mucho mas practico y comodo 
una vez que se coge el «tranquillo». En 
particular, resulta muy bueno a la hora de 
«depurar» programas por poder ver el listado del 
mismo en una ventana, mientras se ven los 
resultados en la otra. Y, por ultimo, un consejo: 
deje el manejo de ventanas por programa hasta 
que el resto se haya probado. En caso contrario, 
no se podra hacer uso de esta ultima facilidad. 


La depuracion de programas 
en GEM BASIC resulta 
tremendamente comoda y no 
puede compararse a casi 
ninguno de los vistos hasta 
ahora en personales. 
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Teletipo 



El programa que nos manda Jaime Bosch 
Perez sirve para escribir textos de una manera 
muy especial, por ejemplo, de las instrucciones 
de nuestros programas. El nombre que se le ha 
dado viene de la forma en que van apareciendo 
las letras en la pantalla del ordenador. El sonido 


y forma de escritura recuerdan las conocidas 
caracteristicas del teletipo. 

Esperamos que este sencillo truco os sea util. 

El funcionamiento es muy sencillo. Basta con que 
se teclee y en la demostracion aparecera una 
clara explicacion de su manejo. 
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Mil scrolls posibles 

Por Ruben Figal Calaforra 


Si se desea conseguir un scroll de la pantalla se 
puede hacer una llamada a la rutina que esta 
instalada en la direccion &BC4D que desplaza 
toda la pantalla en una Imea. De modo que con 
un sencillo bucle: 

FOR n = 1 to 25; CALL &BC4D; NEXT 

se puede desplazar toda la pantalla. Tambien se 
puede hacer que el desplazamiento sea hacia 
arriba o hacia abajo a voluntad, alterando el 
registro B desde el Codigo Maquina: si es 1, el 
desplazamiento sera hacia arriba; si es 0, sera 
hacia abajo. 

Tambien existe una rutina en el firmware que 
permite hacer desplazamientos, esta vez mas 
perfectos. Se localiza en &BC50, y en este caso, 
si B es 0, el desplazamiento sera hacia abajo; si 
es 1, sera hacia arriba. Los registros H, L, D, E 
expresan el borde izquierdo, fila superior, borde 
derecho y fila inferior del area de pantalla a 
desplazar. Todos ellos estan en terminos de 
caracteres, no en pixels, y el acumulador (registro 
A) contiene el codigo de la tinta que rellena los 
espacios desplazados. 

Tambien os envfo unos programas que 
explicaran mejor su funcionamiento. Los dos son 
perfectamente localizables en cualquier area a 


iO 

org taOOO 

20 

Id bidXtO) iN de despUzaaientos 

30 

Id a,(IXt2) iTinta de relleno 

40 loop: 

push af 

50 

push be 

60 

Id b,(IX'i'4) (direccion del desplazaaiento 

70 

call Ibc4d jproduce el desplazaaiento 

80 

pop be 

90 

pop af 

100 

djnz loop iDecreaenta 6 y repite 

110 

ret iVuelve a Basic si B es 0 


voluntad. Espero que este truco interese a [ 

alguien. 

En este caso, la orden CALL debera tener la 
sintaxis: CALL &A000, direccion, tinta de I 

relleno, n. de desplazamientos puesto que en el I 

Codigo Maquina recogera los parametros de una 
forma «invertida». Sobre todo, yo aconsejarfa a 
los posibles lectores que experimentasen con la 
tinta de relleno (si es 0, la pantalla se reUenara 


10 

org 

taOOO 


20 

Id 

a,(IX+0) 

(tinta de relleno 

30 

Id 

b,(IX+2) 

inuaero de veces 

40 

Id 

h,(IX+4) 

(borde izquierdo 

SO 

Id 

d,(IX+6) 

(borde derecho 

60 

id 

L(ix+8) 

(fila superior 

70 

Id 

e,(Ix+20) 

(fila inferior 

GO loop: 

push 

be 


90 

push 

af 


100 

push 

de 


110 

push 

hi 


120 

Id 

b,(IX+12) 

(direccion del scroll 

130 

call 

tbeSO 


140 

pop 

hi 


150 

pop 

de 


160 

pop 

af 


170 

pop 

be 


180 

djnz 

loop 

;repite las veces deseadas 

190 

ret 


; vuelve al basica si b es 0 


con el color del papel; los demas valores 
producen efectos interesantes. 

En este caso, la sintaxis de la orden CALL es; 
CALL &A000, direccion, fila inf, fila sup, derch, 
izq, veces, tinta. Hay que tener en cuenta que al 
hacer la llamada, la fila superior es considerada 
como la mimero 0, la inferior es la 24, el borde 
izquierdo es el numero 0 y el derecho el 19, 39 6 
79, dependiendo del modo. 
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Hasta 255 usuarios 
por disco 

Nuestros lectores seguro que conocen el 
comando lUSER.n del Amsdos. Su mision es 
realizar todas las funciones de entrada/salida del 
disco. 

El truco que os ofrecemos es una corta rutina 
en Lenguaje Maquina que aumenta el numero de 
areas de usuario hasta 255, en lugar de las 16 
normalmente permitidas. 


10 FOR n=40325 TO 40357:READ a 
$;POKE n, VAL<”&’'+a$)-.NEXT 
20 CALL 40325 

30 DATA 00,00,00,00,00,21,85,9 
d,01,94,9d,cd,dl,be,c9,99,9d,c 
3,9e,9d,55,53,45,d2,00,dd,7e,0 
0, 32, 01, a7, c9, 00 


Cargador para 
Saboterur II (v. disco) 

Todos nuestros lectores recordaran las 
aventuras de Saboteur, un superespecialista del 
sabotaje. Hace poco se nos ha vuelto a deleitar 
con una nueva version de este juego encarnado 
en un personaje femenino y con un nivel de 
dificultad mas alto si cabe. 

Pero en esta ocasion nuestros lectores 
poseedores del juego en version disco lo van a 
tener tremendamente mas facil, gracias al 
cargador que esta semana nos envia un anonimo 
lector. Seguro que sera recordado como un 
autentico heroe desconocido. 


10 REM por YOGUI 
20 OFENOUT "D" 

30 LOAD ’’screen” , &400 
40 CALL &400 
50 LOAD ’’ninja” , &C000 
60 LOAD ”code”,&400 
70 POKE &960E,0 
60 POKE &33FA,0 
QO CALL &400 






fidiefos Ouenaqalacticaabajoprecio 


Titulos de diferentes 
tamanos 

Por Antonio Rivera Gorrales 

Este programa tan sencillo nos va a permitir 
colocar textos de distintos tamanos en cualquier 
lugar de la pantalla. La clave del asunto esta en 
la Imea donde aparece la instruccion TEST, asi 
como donde se calcula el valor de la variable 
“pixels”. Debido al uso de la dichosa instruccion 
TEST, el programa solo corre en los 664 y 6128. 


20 REK ANTONIO RIVERA CORRALES 

30 REH ruK js 

to PAPER 0;PEN I’.NODE i TO 

50 INP'JT "NENSAJE; 'iffietisl.y- 120 jp j-fji 

16;NODE 1 'X'y^PLQT X 

60 INK 2,25;INK 3,1 T x+2,y-2 

?0 chat5=LEN(ReT\5tP.pi^el5-£h.. x:xu;x2 

Tits j:v 

80 x=(639-cNat5t32)/2 HEXJ i 

90 UCATE l.l-.KJ 3;-PlNT 
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Despacito 
y buena letra 


Si necesitas la mejor impresion 
tendras que poner tu atencion 
en las impresoras de margarita. 
Para que la tengas en cuenta 
aquf te presentamos la 
aportacion de Admate en este 
sector denominada DSY 120. 

Su lenta velocidad de impresion 
es propia de este tipo de 
impresoras y en este caso 
alcanza los 18 caracteres por 
segundo. Los caracteres de la 



impresora estan reunidos en una 
rueda que contiene hasta un 
total de 96, aunque pueden 


variarse sustituyendo la 
margarita por otra del tipo 
CUME YP. Por ello es 



La excepcion 
que confirma 
a la regia 

Esta regia que se vende en 
Algarra, Padre Damian 37, 
28036 Madrid, al precio de 2.350 
pesetas, es toda una excepcion. 
Su utilizacion resulta 
imprescindible all! donde se 
desarrollen programas y mas 
aun cuando se pone especial 
interes en cuidar el aspecto de 
los listados de impresora, puesto 


Disco duro o blando 

Si te hablamos de una unidad 
de disco de 10 Mb de capacidad 
posiblemente pienses, por un 


que en una de las funciones de 
esta regia es la de servir de 
tipometro, contando para ello 
con escalas para los diferentes 
tipos de letra propias de las 
impresoras: elite, pica, 
condensada, expandida, etc. 

Esta construida en metacrilato 
de metileno de 4,5 milimetros 
de espesor y ademas del 
tipometro mencionado disponde 
de una escala especial para los 
distintos espaciados de Imea y, 
por supuesto, otra convencional 
en centfmetros. 


momento, que nos estamos 
refiriendo a un disco duro. Pues 
no, porque el caso de la unidad 
de disco Syquest es especial, ya 
que por una parte se comporta 
como un disco duro de 10 Mb y 
por otra como una floppy de 
disco reemplazable. 

Su precio es de 105.000 ptas. 
para la unidad de disco y 
16.700 ptas. para el cartucho 
removible en Comercial Nuevos 
Ministerios, en el vestibule de 
la estacion de Renfe de la calle 
Raimundo Eernandez Villaverde 
de Madrid. Por su tamano solo 
podra utilizarse en los Amstrad 
PC 1512 SD de una sola unidad 
de disco. 



Este documento 
se autodestruira 
en cinco segundos 

En ocasiones, los documentos 
que escribe la impresora de una 
oficina para ser lefdos y 
estudiados ocupan demasiado 



espacio y en la mayoria de los 
casos no seran posteriormente 
repasados. Deshacerse de ellos 
puede resultar demasiado 
comprometedor para la empresa 
por su caracter confidencial. 
Desde este punto de vista el 
mejor metodo es destruirlo 
contando para ello, por ejemplo, 
con esta trituradora de papel 
que nos ofrece 
por 71.700 pesetas. Master 
Computer. Plaza de Cristo Rey, 
3, esquina a Cea Bermudez. 
28015 Madrid. 


\ 

I 
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imposible conseguir las 
diferentes deformaciones de 
letra que presentan las 
impresoras matriciales, aunque 
eso si, variando el paso entre 
10, 12 y 15 conseguiremos 120, 
144 y 180 caracteres por Hnea. 
Tambien es posible variar la 
intensidad de impresion en un 
range de cuatro niveles. 

El avance del papel se efectua 
por friccion aunque 
opcionalmente se la puede dotar 
con un dispositivo tractor 
bidireccional o introductor 
automatico de hqjas sueltas. 

Su precio es de 
126.000 pesetas, y la podreis 
encontrar en Informatica 
Papeleria Plaza de Castilla 
en la misma Plaza de Castilla 
madrilena, junto al 
Asador. 


Soft Mail 

El envlo de discos de 5 1/4 
pulgadas por correo para el 
Amstrad PC 1512 puede ser 
muy preocupante si se trata de 
que lleguen sanos y salvos a su 
destinatario. Esselte Dymo ha 
pensado en ello y ha 
desarrollado este practice mini 
archivador con capacidad para 
cinco discos fabricado en un 
material plastico flexible y a la 
vez absorbente a los golpes que 
pueda recibir en el transporte. 

El archivador de Esselte 
tambien puede resultar muy util 
para llevar discos a mano desde 
casa al trabajo. 


Es vuestro por 
315 pesetas, en 

Comercial Nuevos Ministerios, 
en el vestibule central de la 
Estacion RENEE de la calle 
Raimundo Fernandez Villaverde 
de Madrid. 




Puerta de servicio 

Si se trata de aprovechar al 
maximo las posibilidades en 
comunicaciones que te brinda tu 
Amstrad PC 1512, tal vez la 
linica puerta serie RS 232 C 
situada en el panel posterior se 
te quede pequena. La 
alternativa que te ofrece Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermudez de 
Madrid, consiste en ampliar la 
dotacion de tu ordenador 
favorito con esta tarjeta de 
comunicaciones que 
cuesta 8.960 pesetas, 
insertandola en cualquiera de 
los tres zocalos con los que 
cuenta tu Amstrad PC. Puede 
ser, por tanto, configurada 
como COM2: a cualquier 
velocidad de transmision y para 


ser todavia mas compatible con 
la amplia oferta de normas de 
conexion serie, cuenta con dos 
tipos de conectores y un 


adaptador para funcionar como 
RS 232 C estandar y Serie 
IBM con canon en «D» de 
nueve contactos 
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BARBARIAN 


Lucha a muerte 

en el palacio del rey KuU 

Erbe Tel. 314 18 04 

Cinta: 1.200 ptas. Disco: No hay version 


Hace mucho tiempo, mas del que la historia 
del ser humano puede abarcar, los moradores de 
la tierra deblan ser fuertes guerreros, 
sanguinarios y sin escrupulos. Las cuitas de por 
aquel entonces no se resolvlan en los juzgados, y 
si se solucionaban a golpe de espada. Asi se 
decidiria el ganador del cofre lleno de oro, que el 
rey Kull puso en juego para encontrar el futuro 
lugarteniente de su ejercito. Los combates se 
celebraban delante del rey, y solamente podria 
ganar el guerrero que derrotara a todos los 
demas contendientes. 

Las luchas eran encarnizadas, y los golpes, 
dados con las enormes espadas de hierro, 
resonaban por las arcadas de la sala del reino. 

Las alfombras se tiheron pronto de sangre, y mas 
de una cabeza void por la estancia real. Pronto 
eran retiradas del terreno de lucha por un 
desagradable sirviente, pero no era por que 
fueran desagradables para el monarca, sino por 
que entorpecian los movimientos de los 
luchadores. Estos demostraron en sus evoluciones 
que eran expertos en el manejo de la espada, 
como en todo tipo de tretas, empujones y 
patadas, cosas estas muy poco dignas, pero 
sumamente efectivas. A cada lado del trono habia 




seis circulos rojos, que iban desapareciendo segiin 
el luchador recibia golpes. Cuando los circulos 
rojos desaparecian indicaban que el castigo habia 
sido brutal y el guerrero caia muerto al suelo. 
Esto se cumplia, si no le era cortada antes la 
cabeza. 

Este es tema, epico y sanguinario, de 
Barbarian, juego que nos ha sorprendido por 
una realizacion en todos sus apartados realmente 
buena. Los graficos reflejan muy bien el 
ambiente del castillo en donde se celebran los 
combates, como tambien lo hace un colorido 
acertado y que, con sus sombras, le da el 
suficiente aire tetrico. El movimiento es 
sorprendente. Las evoluciones logicas de un 
espadachin podremos verlas, con toda naturalidad 
y rapidez, acompanadas de un sonido que refleja 
fielmente el entrechocar de las espadas en el 
fragor de la batalla. 

Barbarian pertenece a Palace Software y es 
distribuido por Erbe. 


Originalidad 

IZI IZl la El □ 

Graficos 

El E] El El □ 

Movimiento 

El IZl IZl El El 

Sonido 

El El El El El 

Dificultad 

El El El El El 

Adiccion 

ElElElEia 

Horrible 

V^Un rollo Pasable 


jeno V YV Muy bueno 
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NEMESIS 
THE WARLOCK 


El regreso del guerrero 

Erbe tJe 314 18 04 

C inta : 875 ptas. Disco: No hay version 

T j a historia corrio a traves de las galaxias, 
envuelta en una halo de tragedia y misterio. La 
orden de los poderosos Caballeros negros fue 
exterminada en su planeta. debido a un criminal 
ataque por sorpresa. Antes de su muerte, el 
mayor de la orden juro que volverla para vengar 
esta sangrienta matanza. Los traidores asesinos se 
rieron de este juramento, mientras el noble 
Caballero moria entre agonicos espasmos. Ahos 
mas tarde la sangre se les helarla en las venas. El 
mayor de la orden negra venia a cobrar la 
venganza prometida. 

Este poderoso caballero debe dar cuenta, con 
su espada y con su pistola laser, de los enemigos 
que le salgan al paso en las diferentes etapas del 
juego. Estos se desplazan a traves de unas 
plataformas y disparan al caballero negro con sus 
pistolas laser. En cada fase del juego, nuestro 
protagonista debera eliminar un numero exacto 
de enemigos. Esto se le indicara en un pequeno 
marcador situado en la parte inferior izquierda de 
la pantalla. Cuando haya eliminado los contrincantes 
indicados en este, podra pasar de fase. 

Si quisieramos que nuestro heroe utilizara la 
pistola laser, en vez de la espada, deberemos 
hacerle tocar una especie de cajitas que veremos, 
cosa esta dificil en algunos casos, distribuidas por 
la pantalla. Debemos suponer que estas cajas son 
municion, y podremos utilizar la pistola mientras 
en el indicador de esta, situado en la parte 
inferior derecha de la pantalla, no marque cero. 
Cuando se agote la energia laser, deberemos 
utilizar de nuevo la espada. 

Este es el tema de Nemesis the Warlock, 
juego que, con unas acertadas diferencias, se 
suma a los dedicados a darle con brio al joystick, 
y a exterminar a todo enemigo que se ponga por 
delante. Por cierto, aunque algunos de ellos 
parezcan muertos, no hay que fiarse. De su 
cuerpo puede reencarnarse un guerrero mas 
poderoso. 

Nuestro guerrero es un experto utilizando la 
espada, no hay mas que observar como la 
maneja, y otro tanto ocurre con la pistola laser, 
pero, si fuera eliminado antes de terminar su 
mision, veremos como su cuerpo vencido es de 
nuevo llevado al parafso de los nobles guerreros. 

El apartado grafico del juego no es de una 
calidad sorprendente, pero esta bien realizado. 
Los colores son agradables, al igual que la 

Nemesis the Warlock pertenece a Martech y 
es distribuido por Erbe Software. 



THEIMIIRLOCK 



CgB ' 
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musica y sonido del juego, pero lo realmente 
destacado del juego es el movimiento de la lucha 
con espada, y el retroceso de la pistola laser, 
sumamente realista. 


Originalidad 

El E] El □ □ 

Graficos 

El El El El U 

Movimiento 

[□ E] E] E] IZl 

Sonido 

El El El □ □ 

Dificultad 

E] lEl El El U 

Adiccion 

[Z1 El lEI El □ 
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JUEGOS 


MARIO BROS 

Sin ptisa pero sin pausa 


Erbe Tel. 314 18 04 

Cinta; 875 ptas. Disco; No hay version 


Ajas tortugas son animales, como todos 
sabemos, sumamente lentos y pacificos. Su 
observacion en un tiempo lleno de prisas, supone 
un relax considerable. Mario Bros era un tipo al 
que le gustaban estos bichos tan simpaticos, por 
lo que tenia gran cantidad de ellos. Pero todas 
las historias tienen una parte negativa, y la de 
Mario Bros comenzo cuando las tortugas se 
volvieron locas por la ingestion, a traves de los 
alimentos, de una sustancia contaminante. Las 
tortugas mordlan a todo lo que se les ponla por 
delante, personas incluidas. Mario, a pesar del 
dolor que le suponla la terrible solucion a este 
problema, decidio matar a las tortugas. El 
sistema utilizado por Mario para lograr esto era 
dar cabezazos —jQue bruto!— a las plataformas 
por donde iban caminando las tortugas. Si el 
cabezazo era dado cuando una pasaba justamente 
por encima, esta quedaba dada la vuelta y podia 
ser eliminada por Mario. Lo que asombro 
enormemente a nuestro simpatico personaje eran 
las monedas que calan por unas tuberlas. El caso 
era que Mario las recogla y, como cuando 
mataba a las tortugas, le eran concecidos unos 
buenos puntos. Si en alguna ocasion nuestro 
simpatico personaje se cansaba, podia contar con 
la ayuda de otro amigo y repartir puntos, ademas 
de fama. 

Original y simpatico este juego, como casi 
todos los que conocemos de la casa Nintendo, 
firma que sera conocida por muchas personas, 
debido a una larga lista de juegos que hicieron, y 
♦hacen, para las famosas maquinitas de bolsillo. 

La version para Home Computer pertenece a 
Ocean. 

Una de las cosas que mas nos ha gustado en 
Mario Bros es, la posibilidad de jugar con otra 
persona, cosa que hace el juego mas entretenido 
si cabe. Graficamente sigue la llnea de 
simplicidad de estos juegos, como tambien lo 
hacen los colores utilizados. El movimiento es 
muy bueno y gracioso, estando acompahado por 
un sonido simpatico. Una cosa que llama 
poderosamente la atencion es la manera de frenar 
de Mario en sus locas carreras. 
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FERNANDO MAKTm 


BASKET MASTER 

Aprende d 

e una estrella 

Erbe 

Cinta: 875 ptas. 

Tel. 314 18 04 

Disco: No hay version 


El baloncesto es un deporte que cada dia es 
mas practicado e, igualmente, mayor expectacion 
causa. Para muestra de esto, no hay mas que ver 
como en TV actualmente se retransmiten 
partidos de la Liga americana (NBA), baloncesto 
vistoso y espectacular donde lo haya. 

Fernando Martin uno de los mejores 
jugadores espaholes, lo entendio asf, y marcho en 
cuanto pudo a USA. AIK ha perfeccionado su 
estilo y ha aprendido nuevas cosas. Este 
perfeccionamiento lo podremos admirar a traves 
del juego de Dinamic, Fernando Martin Basket 
Master. En el podremos jugar contra esta estrella 
del basket y aprender, porque ganarle sera otra 
cuestion. En esta opcion admiraremos, y 
sufriremos, los espectaculares mates de Fernando, 
asi como sus perfectos tiros a canasta desde la 
Knea de 6,25. En el caso de los mates podremos 
ver la jugada repetida en modo 0, notando con 
mayor precision el desarrollo de la misma. 
Realmente acertado este detalle del replay. 

Si nos cansamos del «machaque» al que nos 
sometera Fernando Martin, podremos cambiar a 
la opcion de dos jugadores y enfrentarnos a un 
amigo. En las dos opciones mencionadas 
podremos elegir el nivel, pudiendo ser este de 
novato, amateur, o NBA. Ni que decir tiene, que 
en el ultimo nivel mencionado es practicamente 
imposible ganar a Fernando Martin. 

Sobre el desarrollo de un partido de baloncesto 
no hay mucho que decir que la gente no sepa, 
por lo que simplemente mencionaremos que el 
juego se atiene a las reglas de este deporte. Si 
cometemos faltas personales se nos pitaran, si 
encestamos desde detras de la Knea de 6,25 se 
nos anotaran los tres puntos, etc. 



12345 008 

MARTIN F. 


OOl • 12345 
JUGADOR 1 



En suma, un juego que acerca a nuestros 
ordenadores el baloncesto, y que ademas lo hace 
acertadamente. Graficamente es bueno y los 
colores son acertados, pero lo que realmente es 
mas destacable es el movimiento de los jugadores. 
Es sumamente natural y realista. 

Buen trabajo realizado por la gente de Dinamic 
en este juego que, por otra parte, se ha hecho 
esperar, pero que ha merecido la pena. 

Fernando Martin Basket Master esta 
distribuido por Erbe. 
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JUK30S 


NINJA 

La muerte negra 


Erbe 

Tel. 255 45 00 

Cinta: 699 ptas. 

Disco: No hay version 


Ijos ninja eran unos mercenarios japoneses 
entrenados para matar. Es lo que ahora 
llamarfamos cuerpos especiales, pero sus 
«instrumentos de trabajo» son las artes marciales. 

En la caratula del juego nos cuentan la 
aventura en la que se encuentra metido el Ninja. 
Su mision en la tierra de la muerte es rescatar a 
la princesa Di Di, de la que esta enamorado, de 
su prision en el palacio de las Perlas, mientras va 
recojiendo todos los objetos que la princesa ha 
ido dejando a lo largo del camino para que le 
sirvan de guia y en prueba de su amor. 

Las armas que puedes utilizar son el sable de 
Samurai, estrellas de la muerte y una daga para 
arrojar, ademas de las patadas y punetazos 
propios de cualquier luchador de este tipo que se 
precie. Pero no te confies, ni pienses que con este 
material tienes asegurada la victoria, a pesar de 
ser el mejor. Los enemigos poseen las mismas 
armas que tu y estan destinados a proteger los 
idolos con su vida. 

El juego consta de varios niveles ascendentes 
en los que los oponentes se van multiplicando 
progresivamente. 

Uno de los detalles a agraceder es la detallada 
informacion de las posiciones del joystick, para 
conseguir cada uno de los movimientos del 
personaje, que nos proporcionan con el juego. 

Graficamente tiene un planteamiento semejante 



a la media de los juegos de artes marciales, pero 
con un movimiento bastante aceptable, gracioso y 
colores variados y bien combinados. 

Ninja ha sido creado por de Mastertronic. 
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LA VENGANZA 


DE JOHNNY 

COMOMOLO 


Preguntando se va 
a Roma 


I ohnny fue el unico ser humano que 
soferevivio al ataque sorpresa realizado por una 
potencia enemiga, y que causo un desastre de 
proporciones considerables en la nave terrestre en 
la que nuestro personaje viajaba. 

Para poder escapar a una muerte segura, 
monto en uno de los modules de reconocimiento 
de la nave madre y escape al espacio. Durante 
esta huida solo penso en una idea: regresar al 
punto donde les atacaron y pagar con la misma 
moneda a los traidores. 

La nave enemiga esta formada per 10 niveles 
unidos entre si, a traves de cinco tubes 
ascensores de una sola direccion. Tres de ellos 
son inutilizables. Cada nivel consta de 257 
pantallas, per las que veremos todo tipo de 
ciborgs y naves de reconocimiento, capaces de 
dispararnos ondas mentales energeticas 
paralizantes. Si conseguimos eliminarlos con 


nuestro rayo de neutrones, podremos llegar al 
nivel cero, objeto de nuestra mision, y 
apoderarnos de la nave. Para acceder a cste 
nivel, deberemos montar en los ascensores de 
bajada y jugar a los videojuegos que alli veremos. 
Si te niegas a jugar, te detectara el ordenador de 
la nave aliemgena y acabara contigo. Tambien 
Kara esto si no respondes adecuadamente a las 
pre^untas que te haran sus maquinas detectoras. 

Este es el desarrollo de La venganza de 
Johnny Comomolo, juego que no es 
excesivamente original, pero que esta realizado 
adecuadamente. El apartado grafico es bueno, y 
los colores utilizados, aunque pocos, estan bien 
Lo que no nos ha parecido tan acertado es el 
cambio de pantalla. Un tanto psicodelico ese 
dibujo de laberinto utilizado. 

El movimiento tiene la velocidad que se podria 
esperar en un astronauta. 

La venganza de Johnny Comomolo pertenece 
a Juliet Software y es distribuido por Pro Soft. 
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JUEGCS 


MAGMAX 

Vuelo rasante sobre 
el planeta Naranja 




c 

kJuponemos, ya que no somos pilotos, que 
una incursion sobre un objetivo en vuelo rasante 
debe requerir una pericia de pilotaje 
considerable. A esta suposicion hemos llegado 
despues de estar jugando un ratito con Magmax, 
juego de Imagine. Los sistemas de defensa de 
este planeta estan formados por torretas de rayos 
gammas, capaces de efectuar disparos 
inteligentes. Por esto se debe entender que, 
cuando nos ven llegar, apuntan hacia nosotros y 
disparan con gran precision, pero, si no nos dan 
debido a nuestro movimiento, vuelven a apuntar 
y a disparar aunque las hayamos dejado atras. 

Por lo ultimo explicado, mas vale eliminar todas 
las torretas que podamos para no encontrarnos 
con fuego cruzado. Hacer esto no es excesivamente 
dificil, pero requiere precision de disparo, ya que si 
rozamos las torretas solamente, no se destruiran. 
Tambien podremos eliminar otro tipo de torres 
que hay sobre el planeta, pero que en este caso 
no disparan. Otra cosa que ahade emocion al 
juego, aunque con lo anteriormente dicho ya 


tiene bastante, son las construcciones que 
deberemos esquivar en nuestro avance, puesto 
que no pueden ser destruidas, y que sirven de 
proteccion a las torretas gammas, haciendo que 
los disparos lleguen dificilmente a estas. 

Otro juego perteneciente al grupo de los de 
gatillo de disparo a fondo que, como es evidente, 
no destaca por su originalidad, pero si por su 
adiccion, elemento principal que se persigue en 
estos arcades. Graficamente es simple, pero bien 
realizado, teniendo unos colores agradables. El 
movimiento es acertado, pero no hubiera estado 
mal un poco de rapidez. 
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Para solicitar 
las tapas, 
remitanos 
hoy mismo 
el cupon de pedido 
que encontrara 
en la solapa 
de la ultima pagina 


hi 








No necesita encuadernacion. 


gracias a un sencitio 
sistema de fijacion 
que permite adem^s 
extraer cada revista 
cuantas veces sea necesario. 


























CONCURSO 


MUSICAL 



Cdjj biian nissiD 

Despues de musicas experimentales, clasicas y sacras, 
estamos convencidos de que nuestros lectures 
seran capaces de apreciar el sentido de ritmo 
y alegria que Jose Manuel Bocanegra ha sabido 
imprimir en su composicion. 


1 ( 1 ' - 

20 CONCURSO hUSICfiL 

30 flNSTRflO SENflNAL 

40 ' - 

50 ' 

60 JOSE MANUEL BOCANEGRA CRUZ 
70 ' CALLE GRANADA N,-32 
SO ■ ARMILLA (GRANAOAl 

90 ' C.P==> 18100 

91 ' 

92 ' 

100 ON BREAK' GOSUB 1300 
lie ' 

120 'iriicianzacior 
130 SYMBOL 255,1,1,1,1,1,1,1,1;SPEED 
INK 6,10:INK 0,0:B0RDER OlMODE I 
140 PEN 2; LOCATE 1,4: PRINT ” ji 
i #ii # tli #« I m 
lltS A # t;« « t I I » 

# ^ I i # # S # s## 

# # It # It ji It t It I # 

« S ##11 ### ## # # #» 
ISO FOR a=l TO 40 STEP 2;j=j+l:IF i/2 
=i\2 THEN PEN 1 ELSE PEN 3 
I6C LOCATE a,l:PRINT CHR${237);CHR$(2 
37);L0CATE a,24:PRINT CHR$(237);CHRt( 
237):NEXT 

170 FOR a=l TO 24 STEP 2:j=j+l:IF il2 
=i\2 THEN PEN 1 ELSE PEN 3 
180 LOCATE l,a:PRINT CHRK237):PRINT 
CHR$(237):LOCATE 40,a:PRINT CHR$(237) 
ILCCATE 40,atl:PRINT CHRK237).'NEXT 
190 INK 1,24,6:INK 3,6,24 


200 PAPER 2:PEN llFOR a=14 TO 19:L0CA 
TE 6,a:PRINT CHRK 143)1" 

";CHRK143):NEXT:L0CAT 
E 6,13:PRINT STRING$(30,CHR$(143)):PA 
PER O.'FOR a=3 TO 35 STEP S:L0CATE a,I 
4:PRINT " ":L0CATE a,15:PRINT " ":L0C 
ATE a,16:PRINT " ":NEXT 
210 FOR a=95 TO 554 STEP 16:MOVE a.96 
:DRAUR 0,94,0:NEXT 

220 x=8:L0CATE 8,18:FAPER 0:PEN 0:PRI 
NT CHR$(143) 

230 PEN 2:LOCATE 5,23:PRINT "JOSE MAN 
UEL BOCANEGRA CRUZ 1987" 

234 ' 

235 inicializar variables 

240 DIM e5calaX(13):F0R xX=l TO 13:RE 

AO escaiaX(>;X):NEXT 

250 EVERY 30 GOSUB 1290 

260 canall«=l:REA0 canalll:cana!2X=2: 

READ canal2t:canaI3X=l:READ canal3f 

270 veIocidadX=9 

280 e5cala$=" a-b b c+c d-e e f+f g+g 
s" 

290 ENV 1,1,7,2,1,7,2,8,-1,10,10,0,13 
300 ENV 3,1,12,1,1,0,5,12,-1,2: 'chas 
quido 

310 ENV 4,l,13,l,12,-l,3:'igual pero 

con mas duration 

320 ENT -1,1,1,1,2,-1,1,1,1,1 

330 ENT -2,1,2,1,1,0,2,1,0,2,1,-2,1,1 

,0,4 

340 ENT -3,1,0,3,1,-1,1,1,0,2,1,0,1, 

1 , 1,1 


350 DEF FNBi$(5$,5)=MI0K5f,5,!) 

360 tanall*=l:GC3UE 600 
370 canaI2«=l:6CSUB 830 
380 canal3X=l:GCSUB 1070 
390 IF canallX+canal2«+cana!3X>0 THEN 
390 

400 C0N=C0N+l:IF C0N=1 THEN GOSUB 260 
410 IF con=2 THEN GOSUB 260 
420 IF con=3 THEN GOSUB 260 
430 PEN 2:PAPER 0:LCCATE 6,I2:PRINT ' 
PULSE PARA ESCUCHARLA DE NUEVO”:de=RE 
MAiN(l):CALL &BE18:CLEAR:RUN 
440 DATA 4777,i70c,4Ga7,&647,iSed,iS3 
0 

450 DATA 4547,44fc,44b4,4470,4431,43t 

4,0 

460 ' 

470 'melodia 

480 DATA 52AlA2AlA6A2e2+f52AlA2AlA6B2 
e2+f s2A 1A3A2 A2A4+f 2gs012 A2+f 2 A t3C3B2A 
4+f2+f2A52AlA2AlA682+f2A55A3Ar5+f3g50 
12A2a2bs2+c2e2+f4A4+f2e52+f2e2+c8+f2b 
52 +c 2e2+f4A2+f2er3+f 11eO13+c 2b52+c 2e2 
+f4A4+f2A53A3Ar4-E2B2B2es4B2A2+f4A2+f 
8e. 

490 DATA 5016e5016g5016d5032a50!Gd58d 
rSgsOlGasOie+fsOlGgsOU+frOlB+csOlG+f 
sGdrOlO+fsOUdSg. 

500 DATA rOelzOelzOelzrOglzOglzOglzrO 
dizOdlzOdlzrOalzOalzOalnzlnizsOalzOalz 
Oa 1 zrOdl zOd 1 zOd 1 zr Od 1 zOd 1 zOd 1 i»z 1 ffizr Oa 
IzOalzOalzrO+flzO+flzO+flzrOglzOglzOg 
IzrO+fIzO+fIzO+fIzsO+fIzO+cIzO+clzrO+ 
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fiiO+fliO+fIirOd!zOdlriiz!iiizOdlzrOdIzOd 

IzOdlzOzlzOz. 

510 DATA t.2+f2A2Al+f3A022e52B2B2Bs4B2 
A2+f4A2+fs010el2+f2A2Ai+f3A022Es2B2B2 
B54E2A2+f 4A2+f sO 1 Oe t.2+f 2 A2A I+f 3A026B." 
520 DATA 56gs0i4g5Sa56g50i4g58a. 

530 DATA slzOzlzOzlzOzlzOzlzOzIzOzlzr 
OglzrOglzOglzOgrlzOalzOaslzOzlzOzlzOz 
IzOzIzCzlzOzlzrOglzrOgizOglzOgrlzOalz 
OasizOzlzOzlzOzlzOzlzOzIzlzIzIzltJZliaz 
irszlffiz. 

540 DATA 52AlA2AlASA2e2+fs2AlA2AIA6B2 
e2+f52AlA3A2A2A4+f2Q50i2A2+f2At3C3B2A 
4+f2+f2A52AlA2AlA6B2+f2A55A3Ar5+f3g5C 


ELSE nS=VAL(pl$): 


680 canal!X=canallS+l 
690 nll=FNt(i$(cana!lf,canal!?) 

700 canali?=canaIIJ+! 

710 IF nl$="t* OR nll="-* THEN 780 
720 nll=" ”+nl$ 

730 nd 1 «=(1+1NSTR (esc a 1 af, LO«ER$(n 11) 
))I2 

740 IF ASC(RI6HTf(iill,l))>96 THEN olt 
=8 ELSE ol*=!6 

750 SOUND l+rl?,e5cala?(ndl?)/olS,veI 
ocidadSJllS,0,1,1 
760 ON SO(l) GOSUB 600 
770 RETURN 


1020 n2t=n2$+FNrs$ (c ana i 2$, c ana 12?) 
1030 canal2?=canal2?+i 
1040 GOTO 950 

1050 IF 12?=0 THEN canal2?=cana!2?+i: 
p2$=l1IDI( canal2$, canal2?, 2): canal2?=c 
anaI2?+l;12S=VAL(p2f) 

1060 RETURN 

1070 REN enviar sonido al canal C 
1080 p3l=FN»t{canal3l,canaI3?):!F p3f 
AND pStO's" THEN r3?=0:G0T0 11 

20 

1090 IF p3$=”r’' THEN r3S=24 

1100 IF p3$=’'s" THEN r3?=8 

1110 canal3?=canal3?+l:p3$=FN5i$(canal 


12A2a2bs2+c2e2+f4A4+f2e52+f2e2+c8+f2b 780 nlt=nl$+FNBif{cana!l$,canali?) 
52+c2e2+f4A2+f2er3+ftle013+c2b52+c2e2 790 canaIlX=canall*+l 


3l,canal3X) 

1120 IF p3f="/ THEN canal3S=0:RETURN 


+f4A4+f2A53A3Ar4-B2B2B2B54E2A2+f4A2+f 800 GOTO 730 


ELSE ac?=yAL(p3l) 


8e, 

550 DATA 5016e5016g5016d5032a5016d58d 
r8gs016a50!6+f5016g5014+fr018+c5016+f 
sEdrOlO+fsOUdSg. 

560 DATA rOelzOelzOelzrOglzOglzOglzrO 
dlzOdlzOdlzrOalzOalzOalitizlsizsOalzOalz 
OalzrOdlzOdlzOdlzrOdlzOdlzOdlmzliszrOa 
IzOalzOalzrO+flzO+flzO+flzrOglzOglzOg 
IzrO+fIzO+fIzO+fIzsO+fIzO+cIzO+clzrO+ 
flzO+flzO+flzrOdlzOdlazlmzOdlzrCdlzOd 
IzOdlzOzlzOz. 

570 DATA l2+f2A2Al+f3A022B52B2B2B54B2 
A2+f4A2+fr010e2+f2A2Al+f0I8A. 

580 DATA sBgsOUgrOlOa. 

590 DATA SlzOzlzOzlzOzlzOzlzOzIzOzlzr 
OglzrOglzOglzOglzOalzOalzOzlzOzlzOzlz 


810 IF 11?=0 THEN canall«=canall?+l:p 
l$=MID$(canalI$,canalI?,2):canaIl?=ca 
nal!?+l:llS=yAL(plt) 

820 RETURN 

830 REN enyiar sonido al canal B 
840 p2$=FNffil(canai2f,canal2?) 

850 IF p2f<>"r” AND pDfO's" THEN r2? 
=0:GOTO 890 

860 IF p2$=”r" THEN r2S=S 

870 IF p2$='’5" THEN r2?=40 

880 c ana 12S=c ana 12S+1: p2$=FN6!l (c ana 12 

$,canal2?) 

890 IF p2t=''." THEN canal2?=0:RETyRN 
ELSE 12?=yAL(p2$):GOSUB 1050 
900 can3l2S=canal2?+l 
910 n2f=FNiti$(canai2$,canal2?) 


1130 canal3S=canaI3?+l 
1140 n3t=FN!i$Ccanal3$,canal3S) 

1150 canaI3?=cana!3?+l 
1160 IF n3f='’i6" THEN du=2:r3$=FNi8$(ca 
nal3$,canals?); canalo?“Canalw?'^l ELot 
du=l 

1170 IF n3$="+" OR n3$="-" THEN 1260 
1180 R3t=’’ “+n3$ 

1190 IF n3$='’ z" THEN nd3?=Q:G0T0 121 
0 

1200 nd3?=(i+INSTR(e5caIa$,LOUERffn3$ 
)))/2 

1210 IF ASC(RIGHTI(n3l,l))>96 THEN o3 
?=2 ELSE o3?=4 

1220 SOUND 4+r3?,e5caIa?(nd3?)/c3?,24 
/du,0,3,,ac? 


OzlzOz. 

600 REM enviar sonido al canal A 
610 pl$=FN»f{canall$,canall?) 

620 IF pllO^r* AND pl$<>"5" AND pl$< 

>”t" THEN rl?=0:G0T0 670 

630 IF plf=”r* THEN rl?=16 

640 IF pll=*s” THEN rl?=48 

650 IF pll=*t* THEN rl?=32 

660 canall?=canall?+l:pll=FNiii$(cana!l 

$,canall?) 

670 IF pl$='' “ THEN canal I?=0: RETURN 


920 canal2?=canal2?+l 

930 IF n2$="+" OR 02$=*-'' THEN 1020 

940 n2f=" "+n2$ 

950 nd2?=(l+!NSTR(e5calaf,L0UERf(n2$) 
))/2 

960 IF ASC(RIGHT$(n2$,l))>96 THEN o2? 
=4 ELSE o2?=8 

970 SOUND 2+r2?,e5ca!a?(nd2?)/o2?,veI 
ocidad?l.l2?,13,,3 
1000 ON SQ(2) GOSUB 830 
1010 RETURN 


1240 ON S0(4) GOSUB 1070 
1250 RETURN 

1260 ri3t=r!3$+FN[fi$(canal3$,canals?) 
1270 cana!3?=canal3?+l 
1280 GOTO 1200 

1290 LOCATE x,18:F'APER 2:PEN C:PRINT 
CHRtC255):PAPER 0:.x=INT(RND( 1)4(34-7+ 
1)+7):L0CATE x,!8:PEN 0:PR!NT CHRf(14 
3):RETURN 

1300 CALL iBC02;PEN llPAPER 0:MD0E 2: 
LIST 
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Sin duda 

AUHINA 


Graficos 
con el PCW 

Soy un nuevo usuario de la 
familia Amstrad, pues acabo de 
adquirir un PCW 8256. 

Mi pregunta es: ^como 
podna dibujar funciones, ajustar 
por mmimos cuadrados, 
establecer ejes cartesianos y, en 
general, resolver problemas de 
indole grafica eon mi PCW? 

Rafael Leon Ruiz 

El problema que usted nos plantea 
puede resolverse usando, en efecto, el 
programa Graphics Extension. Un 
comentario completo del mismo se 
encuentra en AMSTRAD Semonol 
numero 68, pdgina 44 y siguientes. 
Leyendolo, podrd listed hacerse una 
idea exacta sobre si este programa, 
como nosotros pensamos tras leer su 
carta, responde concretamente a sus 
necesidades. 

El Graphics Extension lo 
distribuye Microbyte, y su direccidn 
es la siguiente: Paseo de la 
Castellano, 179. Tel. 442 54 44. 
28046 Madrid. 

Delegacion en Cataluna: 

Tarragona, 110. Tel. 325 10 58. 
08015 Barcelona 

Aeets© a 

bancos de memoria 
del 6128 _ 

,:C6mo se puede cargar el 
gestor del segundo banco de 
memoria sin que se pierda el 
programa ya residente en la 
misma? ^Cual es la forma de 
que, al acabar de cargarse el 
gestor, llame a un programa de 
manera que no se tenga que 
cargar primero uno y despues 
otro? 

Por otra parte, me gustaria 
que me indicasen si hay alguna 
forma de conseguir algo que 
funcione como el Random Files, 
pero sin errores. 

Delio Otero Perez 

No comprendemos muy bien el 
sentido exacto de su primera 
pregunta, ni sabemos a que se rejiere 
con Kgestor del segundo banco de 
memorial). En cualquier caso, si 
tiene un programa en Basic o 


Mdquina en el primer banco y cargo 
un segundo programa en Mdquina en 
otra direccidn, el programa primitivo 
no se perderd. Con idea de facilitar 
un poco lo que sea que desee hacer, le 
recordamos que en el numero 71 de 
AMSTRAD Semanal, pdgina 9, 
viene listado un pequeno truco en 
Lenguaje Mdquina que permite 
acceder al segundo banco de memoria 
del 6128. 

En cuanto a conseguir que el 
Random Files funcione sin errores, 
bueno, fatal. El programa, tal y 
como se comercializa, o al menos las 
versiones que ban caido en nuestras 
manos, no funciona bien cuando el 
numero de registros se eleva por 
encima de un cierto mdximo, que 
encima no parece ser constante. Lo 
sentimos mucho. 

Aclaracion 
al programa 
Compresor 

Les escribo en relacion al 
programa Compresor, del cual 
soy autor, y que ustedes 
publicaron en el numero 35 de 
su revista. He recibido varias 
comunicaciones de lectures en el 
sentido de que el programa da 
problemas y no funciona bien. 
Tras estudiar el asunto, he 
descubierto el problema, y la 
solucion es la siguiente. 

La Imea 4010 dice 

4010 IF TRANSFER < > 0 
THEN 

ACTIVO(TRANSFER) = N- 
UMLINEA: NUMERO = NU- 
MLINEA:GOSUB 
10000:TRANSFER = 0 


y debe decir: 

4010 IF TRANSFER < >0 
THEN 

ACTIVO(TRANSFER) = N- 
UMLINEA;GOIN = UNUME- 
RO = NUMLINEA:GOSUB 
10000:TRANSFER = 0 

Es decir, debe anadirse la 
expresion «goin = 1». Son 
posibles estas soluciones, pero la 
mas rapida sin alterar la 
estructura del programa es esta. 
Mis disculpas a todos los 
usuarios que hayan tropezado 
con este bug (en ingles, bicho. 
Estandar informatico para 
indicar un error de 
programacion). 

Julian Albo 

Sobre el 
Amstrad PC 

Trabajo con un Epson PC y 
me estoy pensando adquirir un 
Amstrad PC, lo cual me 
plantea las siguientes dudas: 

1) Me informe en una tienda 
de distribuidores de Amstrad 
sobre este ordenador, y me 
dijeron que era compatible en 
un 50 por 100, y que la version 
con monitor monocromo no era 
mas que una television en 
bianco y negro adaptada a 
monitor. Todo esto contradice 
la informacion suministrada en 
las revistas especializadas. ^Que 
me pueden decir al respecto? 

2) ^Incluiran en la revista 
una seccion fija de este 
ordenador? 

3) El Locomotive Basic 2, ^es 
compatible con el Basic de los 
CPC? 

1) El Amstrad PC es bastante 
mds compatible con IBM que un 
triste 50 por 100, segiln nuestras 
propias y exhaustivas pruebas. Le 
remitimos a AMSTRAD Semanal 
numero 77, donde, haciendo uso del 
programa Compatest, consider ado 
la piedra de toque para probar la 
compatibilidad con IBM, obtuvimos 
una compatibilidad total de un 87 
por 100, esto es, segiln el propio 
Compatest, un tercer nivel de 
compatibilidad, el mdximo posible. 
Respecto al monitor del PC, pues 
eso, es un monitor de ordenador, y 
calificarlo como «televisor en bianco y 
negrou es, como minimo, inexacto. 
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2) Intenlamos seguirle la pista al 
PC lo mas cerca posible, coma a 
todos los ordenadores Amstrad. 
Observara que, en la inmensa 

may aria de los numeros, existen 
articulos que lo abordan de una u 
otra forma. En este sentido, es dificil 
hablar de una seccidn fija. Mas bien 
estamos dando al lector una 
informacion completa de los multiples 
aspectos que esta mdquina posee. 

3) El Locomotive Basic 2, en 
principio, es compatible con el de los 
CPC en cuanto a temas grdjicos y de 
acceso a ficheros. Es mucho mas 
potente y complete. Sin embargo, 
haciendo abstraccion de estos dos 
puntos, un poco de paciencia le 
bastard para adaptar la logica de 
cualquier programa al PC o al 
CPC. 

^Como programar 
en Codigo 
Maquina? 

Me gustana aprender a 
programar en Codigo Maquina, 
y, por tanto, saber que necesito 
para ello. Tambien me 
agradaria saber si puedo usar el 
Logo y el Pascal en mi 472. ^Es 
esta la forma de aprovechar al 
maximo mi ordenador? 

Jose Carlos Fandino 

Para realizar programas en 
Lenguaje Mdquina, suponiendo que 
se ha leido unos cuantos libros o 
revistas que, como la nuestra, que a 
menudo hablan del tema, necesita un 
programa ensamblador y un 
programa desensamblador. El Codigo 
Mdquina es un lenguaje y, como tal, 
posee una sintaxis fija y unas ordenes 
estdndar, que el ordenador no puede 
comprender sin ayuda. Los 
ensambladores realizan precisamente 
este cometido: traducirle al Amstrad 
en un idioma familiar para el, las 
ordenes que constituyen el Lenguaje 
Mdquina. 

Un desensamblador realiza la 
operacion contraria: toma una 
porcidn de la memoria, donde reside 
un programa ensamblado, y lo 
«destraduce» de tal modo que usted 
pueda examinarlo ck forma 
comprensible. Existen en el mercado 
una gran cantidad de programas de 
este estilo. Nosotros, habitualmente, 
empleamos el Hisoft DevPac, que 
encontrard en algunas tiendas 
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especializadas ck informdtica. 

En su orcknador si pueck emplear 
lenguajes como el Logo y el Pascal. 
En cuanto al primero. Microbyte 
comercializa una version en cinta de 
cassette (sus sehas estdn en la 
consulta titulada «Grdficos en un 
PCW»), y la propia Amstrad 
regala otro en disco al adquinr la 
unidad o un 6128. 

Para el Pascal, el panorama es el 
mismo. Existe una version en 
cinta/disco, tambien de Hisoft, la 
cual consideramos ideal para 
aprender, y una version en disco, 
llamada Pascal MT + , que vende 
Microbyte. Esta ultima, a pesar de 
ser mucho mas potente que la ck 
Hisoft, no es la idonea para 
aprender, debido a la complejidad 
que entraha su manejo, no «apto 
para menoresn. 

Respecto a si el uso de estos 
lenguajes, asi como el del Codigo 
Mdquina, le va a permitir extraer el 
maximo partich ck su ordenador, 
creemos que le ayudard bastante a 
ello. Con la informdtica ocurre una 
cosa que dejamos caer timidamente, 
por no pecar de axiomdticos ni de 
creyentes en la frase lapidaria: nunca 
se extrae el mdximo provecho de un 
ordenackr. 


^Existen 
programas 
d e utilidades? 

Tengo un 464, el cual utilizo 
practicamente para juegos. 
Quisiera saber si existen 
programas de utilidades para 
este ordenador, asi como sus 
titulos, precios y donde 
adquirirlos. 

Juan Carlos Ruiz 


Estimado Juan Carlos: el termino 
utilidacks es bastante amplio, y en el 
se suelen englobar desde 
ensambladores y lenguajes hasta 
contabilidades y hojas de cdlculo, 
pasando por programas de diseho 
grdfico y sunoro. No nos cktalla lo 
suficiente a que tipo de <iutilidades» 
se refiere, por lo que tendremos que 
contestarle algo muy general. 

Existen docenas, cientos de esta 
clase de programas, por lo que un 
listado de los mismos, junto con 
precios y direcciones, llenarta la 
revista entera Si fucra tan amable ck 
enviarnos otra carta reduciendo un 
poco mds el dmbito de su pregunta... 


Microsoft Cobol 

Quisiera que me explicaran 
como usar el L80 del 
compilador de Cobol de 
Microsoft para Amstrad, ya 
que tras compilar el programa 
fuente y pasarlo a un lichero 
tipo . COAL, no consigo que me 
funcione. 

Cesar 

El metodo es el siguiente: teclee el 
nombre del programa a ejecutar 
seguido de RUNCOB Asi: 

L80 NOMBRE RUNCOB 

El linker producird un programa 
ejecutable. 


Logo en un 464 

El 464 puede funcionar 
perfectamente con el DR LOGO, 
pero no en cinta, sino en disco. Por 
tanto, necesita usted adquirir una 
unidad de disco para el 464. Una 
agrackible sorpresa: el DR LOGO se 
encuentra incluido, gratis, en los 
discos que Amstrad entrega con la 
unidad de disco. 

Recientemente hemos tenido 
donacion en este centro de un 
ordenador personal Amstrad 
CPC 464, y deseariamos saber 
si este modelo es susceptible de 
funcionar con lenguaje DR 
LOGO, y en caso afirmativo. 
lugar de esta zona donde 
podriamos adquirir la cinta 
correspondiente. 
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Hista seccion estd dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier close de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, : HOBBY 
PRESS, S. A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 
lABSTENERSE PIRATAS! 
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Vendo CPC 6128 monitor 
fosforo verde. Octubre 86. 
Impresora de matriz. 

Programas en disco y cintas. 
Muchas utilidades y juegos. 
Libros y revistas. Tel. (964) 

47 28 14 de9a ISyde 15a 19 
horas o bien 47 36 90 de 13 a 
15 y 19 horas en adelante. 


Desearia contactar con 
usuarios del Amstrad 6128 para 
intercambios de juegos. Llamar 
por tel. 370 40 12 preguntar por 
Paco. 


Vendo Amstrad CPC 464 
monitor F.V. con manuales y 
ocho cintas. Embalaje original 
Regalo fundas. Precio 45.000 
ptas. Todo en perfecto estado. 
Llamar al tel. (93) 322 98 26. 
Barcelona. 


Se ha formado un club de 
usuarios de todos los CPCs de 
Amstrad, en Albacete en el que 
tenemos disponibles para vender 
e intercambiar, mas de 400 
programas de todo tipo. 
Interesados escribir a Club 
Usuarios Albacete. Bernardo Cruz 
Molina. Francisco Pizarro, 14. 


02004 Albacete. O bien llamar 
al tel. (967) Tl 03 51 de 2 a 5 
de la tarde y de 9 a 12 de la 
noche. 


Vendo Amstrad CPC 6128. 
Monitor color. Disco un ano 
poco uso. Manual y discos. 
Todo por 85.000 ptas. razon 
Pedro Garcia tel (91) 218 63 91 
Tardes. 


Vendo Amstrad PCW 8256, 
complete y en perfecto estado. 
Sin uso. Incluyo los manuales 
de Basic y del usuario, junto 



“Sdbado Chip ”, de 17 a 19 h. 













con los discos del sistema 
(CP/M plus, procesador 
Locosprit, Logo y utilidades). 
Ademas incluyo Multiplan, 
Dbase II, procesador Wordstar 
y los compiladores siguientes: 
Fortran 80, Cobol 80, Lenguaje 
C, Pascal/Mt + , Turbopascal y 
Modual. Un interprete y 
compilador de Basic, con 
manueales y cuatro discos mas. 
Precio razonable. Interesados 
llamar al tel. 711 22 70 de 
Madrid. Razon Rafael. 


Hola somos unos usuarios 
del Amstrad y desearia cambiar 
pokes para el CPC 464 que 
escriban a Miguel A. Rincon Simon. 
Villardondiego, 27, l.° A. 
Vicalvaro. 28032 Madrid. Se 
les contestara rapidamente y 
que por favor que ponga la lista 
de pokes que quieran cambiar 
con nosotros. 


Por cambio de ordenadof, 
vendo CPC 6128, monitor 
fosforo verde, en garantia con: 

— Amscuard. 

— Master Calc. 

— Base de datos. 

— ODJOB. 

— Transmat. 

— Zedis II. 

— Disco regalo de la casa. 

— Manual de instrucciones. 

— Contabilidad. 

— 2 manuales de 
programacion en Basic con sus 
cintas. 

— Cassette con cable. 

— Jostick. 

— Fundas. 

— Unos 60 programas de 
juegos y utilidades (Asteriz, 
Infiltrator...). 

— Libro de Lenguaje 
Mquina CP/M Logo. 

— Casi todos los numeros de 
.AiMSTRAD Semanal y sus cintas 
correspondientes. 

Interesados llamar a Helio 
(93) 231 03 66 o escribir a 


Heliodoro Lozano. Valencia, 4-6, 
2. °-2. 08015 Barcelona. 


OPERACION CAMBIO 


-Valoramos tu 
CPC 464 en 40.000 ptas. 

CPC 6128 en 70.000 ptas. 

PCW 8256 en 70.000 ptas. 

PCW 8512 en 100.000 ptas. 
en la compra de un nuevo ordenador. 
TEL. (91) 41613 02 

(S6lo tardes) 


Vendo CPC 6128 monitor 
fosforo verde. Octubre 86. 
Impresora de matriz. 

Programas en disco y cintas. 
Mucbas utilidades y juegos. 
Libros y revistas. Tel. (964) 

47 28 14 de9al3yde 15al9 
boras o bien 47 36 90 de 13 a 
15 y 19 boras en adelante. 



Todos los sabados, de 5 a 7 
de latarde, en “Sabado Chip”. 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 


»v_ 


I 


i 


H. ■ ' -* i 1 H ^ 




I I 

■ 

RADIO POPULAR 

de chip a chip 


•• 



••• 




















Mercado 

CCMIN 


Intercambio programas e 
informacion con usuarios de 
compatibles IBM. Tengo entre 
otros: DBase III, Wordstar, 
Sidekid, copiones y juegos. 
Llamar o escribir a: Miquel 
Claparols Ayter. Rambla Nova, 
106, Esc. b, 8-2. 43001 
Tarragona. O al tel. (977) 

21 03 74, a partir de las 10 de 
la noche. 


Vendo Amstrad CPC 6128, 
nuevo, monitor color, con 100 
programas de gestion (Cobol, 
hojas de calculo, raton, Basic 
comp., contabilidades, graflcas, 
etc.) y los mejores juegos del 
mercado, todos ellos en disco. 
Cassette ordenador, cintas de 
juegos, transmat y cambios (en 
disco), y revistas todo por 
95.000 ptas. Llamar al tel. (93) 
340 05 53, a partir de 10 noche, 
o al 352 11 11, todo el dia. 
Preguntar por Mauri. 


Vendo Amstrad CPC 6128, 
monitor color; joystick Quick 
Shot II, Data Base II, 
Multiplan, Fighter Pilot, 
Skyfox, 3D Chess y muchos 
juegos mas, todos en disco; 
coleccion de la revista 
AMSTRAD Ssmanal . Todo por 
100.000 ptas. Llamar solo por 
las mahanas al tel (93) 

330 30 00, ext. 2.306, 
preguntar por Alberto Juste 
Iniguez. Cruz Cubierta, 34, 
4.°-!.^. 08014 Barcelona. 


Cambio juegos, pokes y 
utilidades para Amstrad CPC 
6128. Prometo contestar a todos 
los que envieis lista, mi 


direccion es: Victor Sala Gracia. 
Paseo de la Cruz, s/n. Aren 
(22583 Huesca). O bien llamar 
al tel. (974) 54 20 38, a partir 
de las 6.30 h. 


Vendo Amstrad CPC 6128, 
con monitor en color, cassette, 
joystick, 20 discos con 
programas de gestion, 
utilidades, lenguajes, 
profesionales, juegos y coleccion 
de revistas de AMSTRAD 
Semanal. Equipo en perfectas 
condiciones. Llamar a; Carlos 
Vernet Saureu. Tel. (973) 

26 64 29 (noches). O escribir a; 
Avda. Blondel, 27. 25003 
Lerida. 


Por cambio de ordenador, 
vendo 50 discos llenos de juegos 
y utilidades a 2.000 ptas. cada 
uno o a 5.000 ptas. cada tres. 
Llamar al tel. (93) 220 56 74. 
Preguntar por Angel. 


Desearia contactar con 
usuarios de Amstrad CPC 464, 
664, 6128, para intercambiar 
juegos y programas de todo 
tipo. Tambien tengo lenguajes 
como el Hisoft Pascal con 
manuales. Interesan programas 
profesionales. Tambien 
contactaria con usuarios de 
PCW 8256, para cambiar 
programas en CPM. 

Interesados llamar de 6 a 7 los 
lunes, miercoles y viernes al tel. 
(96) 286 01 41 y preguntar por 
Miguel o, escribir a Jose Antonio 
Climent Monzo. Paseo 
Germanias, 39, 3.°, Pta. 6.^ 
Gandia (Valencia). 


Intercambio programas para 
ordenadores Amstrad en 
cassette y disco. Mandar lista a 
Agustm Fco. Luis Estevez. Urb. 
Tamarco, 60. 38280 Tegueste 
(Tenerije). 


Vendo Amstrad CPC 472 
(72 K) con cassette incorporado, 
manuales, programas, copiones 
y juegos valorados en 100.000 
ptas. Esta completamente 
nuevo, comprado hace ocho 
meses, el monitor es en fosforo 
verde; todo esto por 60.000 
ptas. Interesados llamar al tel. 
(964) 66 29 04. O bien escribir 
a Manuel Esbri Garcia. Colonia 
Segarra, 140. 12600 Vail de 
Ux6 (Castellan). 


Vendo ordenador Dragon 64 
K, seminuevo, con programas 
de Basic tutorial, contabilidad 
personal, ajedrez y otros. 
Joystick, manual en espanol y 
otros libros. Todo por precio 
barato. Razon; tel. 475 69 94. 
Madrid. Preguntar por luan. 
Tardes. 


Quiero contactar con 
usuarios de ordenadores 
Amstrad CPC, preferentemente 
de Alicante, para intercambio 
de juegos y etc., en cinta. 
Interesados escribir a Victor J. 
Fernandez. Sargento del Rio, 14, 
L°. 03009 Alicante. 


Vendo o cambio juegos para 
el CPC 6128. Interesados 
escribir a Manel Borrds Borrds. 
Plaza la Paz, 11. 43792 La 
Torre de I’Espanyol (Tarragona). 


Compro, cambio o vendo 
programas para Amstrad CPC 
6128, todo tipo juegos y 
utilidades. Solo en disco. Poseo 
uno 300. Contestare a todos. 
Escribir a Angel Cuevas. Angel 
del Alcazar, 35, P. 24. 46018 
Valencia. Tel. (96) 370 47 63. 
Enviar lista. 
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tres dimensiones 
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Otra forma de copiar archivos 


El que mds y el que menos, ha 
tenido que copiar ficheros y pro- 
gramas de un disco a otro. La 
order) de MS DOS COPY lo ha- 
ce sin complicaciones, aunque 
tambien sin opciones que permi- 
tan condicionar esa copia, ex- 
cepto por los caracteres del 
nombre. Ahora bien, tambien se 


Etiquete 
sus discos 


a 


No, evidentemente no nos refe- 
rimos a que les ponga una eti- 
jueta azulita con texto en ver- 
ie y subrayado en rosa fucsia, 
nos estamos refiriendo a que 
ademds de esta sana constum- 
bre, bautice con un nombre sus 
discos por software, grabdndo- 
los en la superficie magnetica. 

Para realizar esta tarea, in- 
troduzca el disco sistema, el ro- 
jo, en su equipo, despues teclee: 
LABEL 

Una vez haya pulsado la te- 
cla < ENTER >, su PC le solici- 
tard el nombre para su disco. 
Meta en la unidad a: el disco 
que quiere nombrar, teclee el 
nombre que le quiere asignar y 
pulse < ENTER >. Al realizar 
esta operacidn su disco no de- 
be estar protegido contra escri- 
tura. 

Si cuando formatea su disco, 
desea incluir directamente el 
nombre, puede hacerlo inclu- 
yendo en el Format la opcidn 
"N”. Con lo que al formatear 
se le solicitard el nombre con 
que quiere bautizar su disco. 








dispone de otro comando, XCO- 
PY, que ampifa las posibilida- 
des de copiar de manera mucho 
mds prdctica. 

XCOPY funciona 
igual que CO 
PY, permi- 
tiendo con¬ 
dicionar di- 
chas copias 
segun los 
pardmetros 
que acom- 
pahen la 
orden. El 
formato 
general 
de la or¬ 
den es; 

XCOPY ORIGEN: 

NOMBRE. 

EXT DESTINO 

A continuacidn, ante- 
poniendo una barra (/) llamada 
SLASH, se pueden poner los 
pardmetros deseados, pudien- 
do elegir entre los siguientes: 

/A copiard sdio los archivos 
que tengan como bit de archive 

ID copia solo los archives cu- 
ya fecha sea superior a la indi- 
cada. 

Ejempio: 

XCOPY C:*.* 
A:/D:01-12-87 

Esta orden copiard sdIo los 
archivos cjue tengan una fecha 
superior al uno de diciembre de 
1987. 

/E crea los subdirectories ne- 
cesarios en la unidad de desti¬ 
ne para copiar los ficheros per- 
tinentes. 

/M copia sdio los archivos que 
se hayan modificado desde que 
se hizo la ultima copia o BAC¬ 
KUP. 

IP pregunta antes de copiar 
cada fichero, si se desea copiar- 
los, teniendo que responder Sf 


o No. De esta manera se puede 
introducir una forma genetica 
(por ejempio *.*) y luego salvor 
solo los ficheros que interesen, 
sin necesidad de dar la orden fi¬ 
chero a fichero. 

IS copia todos los archivos 
que cumplan la condicidn de 
nombre de fichero, incluidos los 
que esten en los subdirectorios, 
siempre que estos esten ya crea- 
dos en la unidad de destine. Si 
no estdn creados en esta, para 
que los copie habrd que utilizer 
tambien la opcidn IE. Ejempio: 
XCOPY C:PROGRAM*.* A:/E/S 

Asf se copiardn todos los fi¬ 
cheros cuyo nombre empiece 
por PROGRAM, y si hay subdi¬ 
rectorios con ficheros que cum¬ 
plan tambien la condicidn, se 
creardn los subdirectorios y se 
copiardn estos ficheros. 

/V verifica que la copia se ha¬ 
ya hecho correctamente sector a 
sector y encuentra defectos en el 
diskette que hagan que las co¬ 
pias puedan ser defectuosas. 


Notas sobre el bit de anhivo 

En los comandos explicados se habla del bit de archive. Este es 
un bit (por lo tanto puede tener valor cero o uno) que va con el 
nombre del programa en el directorio del disco. Cada vez que se 
hace un COPY, XCOPY o BACKUP de un archive, este bit toma 
el valor cero. Cuando el archive se modifica, su valor pasa a ser 
uno. De este mode, los mandates BACKUP o XCOPY «saben» que 
archivos copiar cuando se les da el pardmetro /M, que ordena la 
copia solo de los ficheros modificados desde que se hizo la copia 
anterior. 
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Mas sobre el sort 


Por ahora usted concoce va- 
rias formas de presenter en pan- 
talla un directorio. Sin embargo 
es posible que desee socor el di¬ 
rectorio por orden olfobetico. 

Para ello le bastard anadir al 
comando DIR el filtro SORT. De 
este modo si usted teclea 
DIR ISORT 

Obtendrd en pantalla un lis- 
tado del contenido del directo¬ 
rio en perfecto orden olfobetico. 

Debe recorder que el coman¬ 
do SORT no es reciente, esto es, 
su ordenedor no lo reconoce 
con lo que intenta encontrer un 
fichero con ese nombre en el dis¬ 
co actual. Realice una copie de 
este fichero rojo, en todos los 
discos en que pretende este co¬ 
mando. Tembien puede reelizar 
una ordenacidn por extensio- 
nes, o por fechas, pare lo cuel 
unicamente deberd utilizer los 



pordmetros que yo fueron expli- 
codos con detalfe en el numero 
anterior. 

Esto que quizd no sea de mu- 
cho ayudo para discos con po- 


cos archivos, seguro le serd tre- 
mendamente si usted manejo gran 
contidod de pequehos ficheros 
de datos o si tiene la tremendo 
fortune de tener un disco duro. 



Proteja sus programas 


El que mds y el ciue menos al- 
gune vez he metido la pate el 
borrar un fichero o un progra- 
me eccidentelmente. Una vez 
cometido el error, poco queda 
por hecer pare remedierlo. Pe- 
ro eunque eso sirva de escer- 
miento, mds vale prevenir que 
curer. 

El MSDOS, sistema operative 
de Amstrad posee un coman¬ 
do que permite ceteloger un 
progrema o fichero como de 
«sdlo lecture)), con lo cuel reche- 
zard todo intento de borrarlo o 
modificarlo, neturelmente hasta 
que se establece la condicidn de 
lecture y escritura. 

Supongamos que queremos 
eviter que se borre accidental- 
mente el progrema COM¬ 
MAND.COM, que ecompafia a 
los discos de arranque. Bastard 
con teclear la orden siguiente: 
C> ATTRIB -l-R 
COMMAND.COM 
para que este progrema quede 
protegido. En ceso de que se 
desee modificer o borrar el pro- 
grama en cuestidn, revertiremos 
la operacidn tecleando: 

C> ATTRIB -R 
COMMAND.COM 
con lo cual ya se podrd escribir 


sobre I. Neturalmente si se pro¬ 
tege un fichero, no se podrdn 
introducir mds datos o modi- 
ficer los existentes mientres 
el fichero tenge cerdeter de 
solo lecture. 


Otre forme de utilizer AT¬ 
TRIB es pare cembier el valor 
delBlTDEARCHIVO. El signi- 
ficedo del BIT DE ARCHIVO se 
explica mds ebejo. Baste con 
decir que pare cembier su va¬ 
lor, hey que teclear: 

ATTRIB-i-A ejemplo. 

(le da valor 1) 
o... 

ATTRIB —A ejem¬ 
plo.ext (le da el 
valor 0). 

Si usted ed- 
quiere la buena '» ^ 

costumbre de ■ 

utilizer este ' 
comando, es- 
tamos se- 
guros de 

3 ue sus 
edos se 
lo egrade- 
cerdn y de 
que evitard 
mds de un 
disgusto. 


MSDOS 
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H(^ os presentamos 
en esta seccion una 
rutina en Codigo 
Mdquina que 
permite confeccionar 
pantallas de 
presentacion o de 
menu, con solo 
escrihir 
lo que dehe aparecer 
en la misma. De 
esta forma, cuando 
este confeccionado el 
texto que debe 
aparecer, la rutina 
realizard el 
programa Basic 
correspondiente, de 
forma que al 
ejecutarlo aparezca 
todo lo que nosotros 
hemos escrito en 
pantalla. 



Generador de programas Basic 
en Cddigo Maquina 

por Alberto Suner 
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omo recordareis, ya aparecio hace algun 
tiempo en esta misma seccion un programa de 
caracteristicas parecidas, pero que en aquel caso 
nos proporcionaba un programa Basic con las 
Imeas DATA correspondientes a las posiciones de 
memoria indicadas en la llamada. En este caso el 
metodo utilizado para generar el programa Basic, 
es exactamente el mismo, con las linicas 
diferencias de los codigos de los comandos que 
deben aparecer. 

Vamos a ver a continuacion la forma de 
trabajo para generar nuestras propias pantallas de 
presentacion, de menu o de instruccion para 
nuestros programas. 

Para ejecutar la rutina, deberemos ejecutar la 
siguiente instruccion Basic; 

CALL &A000,X 

donde el parametro X, indicara el modo de 
pantalla de trabajo con la cual deseamos que 
aparezca nuestro texto o dibujo. 

Asi pues, dicho parametro podra contener los 
siguientes valores: 

X=0 PARA MODO 0 
X = 1 PARA MODO 1 
X=2 PARA MODO 2 

En el caso de que al realizar la llamada se 
introduzcan mas parametros de los necesarios, el 


Mundo del 

CPC 

programa retornara al Basic sin ejecutarse. Lfna 
vez bayamos ejecutado el programa 
correctamente, se nos presentara un cursor en 
pantalla, mediante el cual podremos imprimir 
nuestros textos. Para mover dicho cursor, 
disponemos de las teclas que se indican a 
continuacion: 

Cursor derecba . . Derecha 

Cursor izquierda . Izquierda 

Cursor abajo. Abajo 

Cursor arriba. Arriba 

ESC . Confeccionar el programa 

Basic y fin de programa. 
BORR . Borrar el caracter anterior 

Todas las demas teclas que no se ban 
mencionado anteriormente, no imprimiran en 
pantalla su caracter ASCII correspondiente. Por 
tan to, debemos tener mucho cuidado de 
introducir algunas teclas pulsando al mismo 
tiempo la tecla ‘CONTROL’, ya que podrfa 
producir efectos catastroficos en el texto que 
estamos confeccionando. Como vemos, pues, la 
forma de trabajo es realmente sencilla, ya que 


PROGRAMA CARGADOR 


10 RE« ^GENERADOR OE PROGRAfiAS BASICS 

t* ' 

30 REM 
40 REM 
50 REM 

60 FOR N=&A000 TO &A1EC 
70 READ A;SUMA=SUMAtA 
80 POKE N,A 
90 NEXT 

ICO IF SUMAOS48S3 THEN PRINT “ERRO 
R EN DATAS" 

110 DATA 254.1,132,221,126,0,254 
120 DATA 1,32,9,62,40,50,197 
130 DATA 161,62,1,24,19,254,2 
140 DATA 32,9,62,80,50,137,161 
ISO DATA 62,2,24,6,62,20,50 
160 DATA 137,161,175,245,205,14,188 
170 DATA 221,33,216,161,241,198,14 
180 DATA 221,119,6,33,1,1,34 
130 DATA 242,160,42,242,160,205,117 
200 DATA 187,205,129,187,205,24,187 
210 DATA 205,27,187,254,242,32,5 
220 DATA 205,160,160,24,232,254,243 
230 DATA 32,5,205,172,160,24,223 
240 DATA 254,240,32,5,205,185,160 
250 DATA 24,214,254,241,32,5,205 


260 DATA 197,160,24,205,254,127,32 
270 DATA 5,205,209,160,24,196,254 
280 DATA 239,32,3,195,244,160,245 ■ 

290 DATA 42,242,160,229,205,117,187 
300 DATA 225,58,197,161,188,40,3 
310 DATA 36,24,8,125,254,25,40 
320 DATA 3,38,1,44,34,242,160 
330 DATA 241,205,90,187,24,154,42 
340 DATA 242,160,124,254,1,200,37 
350 DATA 34,242,160,201,42,242,160 
360 DATA 58,197,161,188,200,36,34 
370 DATA 242,160.201,42,242.160,125 
380 DATA 254,1,200,45,34,242,160 
390 DATA 201,42,242,160,125,254,25 
400 DATA 200,44,34,242,160,201,42 
410 DATA 242,160,124,254,1,40.3 
420 DATA 37,24,10,125,254,1,40 
430 DATA 5,45,58,197,161,103,34 
440 DATA 242,160,205,117,187,62,32 
450 DATA 205,90,187,201,0,0,205 
460 DATA 126,187,33,112,1,17,113 
470 DATA 1,1,0,64,54,0,237 
480 DATA 176,33,216,161,17,112,1 
490 DATA 1,8,0,237,176,62,1 
500 DATA 50,199,161,46,1,38,0 
510 DATA 36,58,197,161,60,188,40 
520 DATA 16,223,213,205,117,187,205 


530 DATA 96,187,209,225,254,32,40 
540 DATA 234,24,23,125,254,25,40 
550 DATA 5,38,0,44,24,222.19 
560 DATA 19,237,83,102,174,237.8; 
570 DATA 104,174,237.33,106,174,237 
con nilTa Ox iflC yni 2 j!5.?v9.2!3 


590 DATA 58,199.161,60,50,193,161 
600 DATA 22,202,161,1.16.2,237 


610 DATA 176,221,225,225,58,199,161 
620 DATA 221,119,2,124,221,119,T 
630 DATA 125,221.119,10.241.18,36 
640 DATA 58,197,161,60,188,40.25 
850 DATA 229,213,205,117,197,205,96 
660 DATA 187,209,225,254,32,40,38 
670 DATA 19,18,56.198,161,60,50 
680 DATA 198,161,24,223,19,62.34 
690 DATA 18.19,176,18,19,58,197 
700 DATA 161,103,58,198,161,80,221 
710 DATA 119,0,62,18.50,193,161 
720 DATA 195,24,161,19,62,34,18 
730 DATA 19,175,18,19,58,198,16! 
740 DATA 60,221,119,0.62,18,50 
750 DATA 198,161,195,24,181,0,18 
760 DATA 1,0,0,0,0,169,32 
770 DATA 25,0,44,28,0,0,1 
780 DATA 181,32,34,8,0,1,0 
790 DATA 173,32,15,0,0.0,0 
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unicamente deberemos salvarlo en disco o cinta I 

para utilizarlo posteriormente. De esta forma si 
nosotros hemos imprimido en la Imea 1 columna ^ 

1 de la pantalla el siguiente texto, en el modo 1 * 

de pantalla; ' 

1 

PRUEBA DEL GENERADOR DE PROGRAhAS < 

El programa que nos generara nuestra rutina 
una vez pulsado ‘ESC’, sera de la siguiente 
forma: 


2 LOCATE U 1;PRINT"PRUEBA” 

3 LOCATE 8,l:PRINT''DEL" 

ALLOCATE !2,l:PRINT "GENERADOR" 
5 "locate 22,1: print "DE” 

£ LOCATE 2S,i:PRINT "PROGRANAS” 
7 LOCATE 1,2:PRINT 


realmente todo el trabajo lo hace la rutina que es 
la encargada de confeccionar el programa Basic. 
Una vez pulsada la tecla ‘ESC’, el programa 
retornara al Basic, con lo cual podremos listar el 
programa que se ha confeccionado. Ahora pues. 


Veamos a continuacion cual es el 
funcionamiento del programa y la forma en que 
es almacenada la informacion para confeccionar 
el programa Basic correspondiente. En primer 
lugar existe un programa que se encarga de 


PROGRAMA ENSAMBLADOR 


■ 

ORG 

lAOOO 

32 

LO 

HL,10101 

64 

PUSH 

HL 

36 

PET 


2 



33 

LD 

(P0SIC),HL 

65 

CALL 

#EB7S 

97 






34 TECS: 

LD 

HL,(P0SIC) 

66 

POP 

HL 

98 DECL: 

; n 

. 'POSIC 

■1 

;«tGENERAOQ 

P 


CALL 

SBBJB 

67 

LD 

A,(MODO) 

99 

■ " 

A,L 


fjF pRnCRANAR 

Ch-jlE-t-A-t- 

35 

CALL 

iBBSl 

68 

CP 

H 

100 

CP 

■_ 

5 



37 

CALL 

SBB18 

69 

JR 

Z,PAS6 

101 

RET 

7 

6 



38 

CALL 

ABBIS 

70 

INC 

H 

102 

DEC 

! 




39 

CP 

242 

71 

JR 

PAST 

103 

LD 

(POSIC),HL 


CP 

- 

40 

JR 

NZ.PASl 


LD 

A,L 

104 



b 

RE’^ 

NZ 

41 

CALL 

DECH 

73 

CP 

25 

105 


;c 

LD 

A,:ix^0} 

42 

JR 

TECS 

n i 

1 a 

JR 

Z,PAS7 

106 INCL: 

LO 

HL,(POSIC' 

4 4 

i 

CP 


43 PASl: 

CP 

243 

75 

LD 

H,1 

107 

LO 

A,. 

•2 

JR 

NZ,MCG2 

44 

JR 

NZ,PAS2 

76 

INC 

) 

L 

108 

CP 

25 

13 

LD 

A, 40 

4B 

CALL 

INCH 

77 PAS7: 

5 r 

uU 

(P0SIC),Hl 

109 

RET 

41 

U 

LO 

'!1CD0),A 

4-6 

JR 

TECS 

78 

POP 

AF 

110 

INC 

L 

IB 

LD 

A,i 

47 PAS2: 

CP 

240 

79 

CALL #EE5A 

111 

LO 

(POSIC),HL 

16 

JR 

INIC 

48 

JR 

NZ,PAS3 

SO 

JR 

TECS 

112 

RET 


17 

M002: CP 

2 

49 

CALL 

DECL 

81 



113 EORRA; 

LO 

HL,(POSIC) 

18 

JR 

NZJOOO 

50 

JR 

TECS 

82 DECH: 

LD 

HL (POSIC) 

114 

LD 

A,H 

19 

LO 

A, 80 

51 PASS: 

CP 

241 

83 

LO 

A,H 

US 

CP 

1 

1 

20 

LO 

(MODO),A 

52 

JR 

N2,PAS4 

84 

CP 

1 

116 

JR 

Z,PASOl 

21 

LO 

A,2 

53 

.'■•ns s 
vKLL 

INCL 

85 

RET 

7 

117 

DEC 

H 

22 

JR 

INIC 

54 

JR 

^ECS 

86 

DEC 

H 

118 

JR 

PAS03 

23 

NODO: LD 

A, 20 

55 PAS4: 

CP 

127 

87 

LD 

(PDSIC),HL 

113 PASOl: 

LD 

A,L 

24 

[ P 

(MODO, A 

56 

JR 

N2,PASe 

88 

RET 

120 

CP 

« 


XOR 

A 

57 

CALL 

EORRA 

89 



121 

JR 

Z.PASOS 

'7fi 

INIC: PUSH AF 

58 

JR 

TECS 

30 INCH: 

LO 

HL,(POSIC) 

122 

DEC 

L 

'77 

CALL 

#BC0E 

59 PASO: 

CP 

239 

91 

LD 

A,(MOOD) 

i '7'} 

ik-.' 

LD 

A,(MODO' 

28 

LO 

IX,DATS1 

60 

JR 

NZ.PASS 

32 

CP 

H 

124 

LD 

H,A 

29 

POP 

AF 

61 

JP 

PONBAS 

93 

RET 

7 

125 PAS03: 

LD 

(POSIC),HL 

30 

ADD 

A,14 

62 PASS: 

PUSH AF 

94 

INC 

H 

126 

CALL #BB75 

01 

LD 

;iX-f£),A 

63 

LD 

HL,{P0SIC) 

95 

LD 

(POSIC),HL 

127 

LD 

A,” " 
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permitir la confeccion de la pantalla 
correspondiente, el cual produce un chequeo de 
las teclas de cursor y de la tecla ‘ESC’, las cuales 
nos permitiran movernos a traves de la pantalla y 
volver al Basic respectivamente. Todas las demas 
teclas que scan pulsadas, produciran la impresion 
del caracter correspondiente a cada una de ellas 
en pantalla. Cuando se pulse la tecla ‘ESC’, el 
programa anterior envia el control al segundo 
programa que es realmente el encargado de 
realizar el programa, y 'una vez hecho, devolver 
el control al Basic para que podamos salvar 
nuestro programa de presentacion. Este segundo 
programa, lo primero que hace es generar una 
Imea 1, en la cual aparece el comando ‘MODE’, 
seguido del numero correspondiente al modo de 
pantalla elegido para trabajar. Para ello coloca el 
puntero de programa, que en este caso es el 
registro doble DE, en la direccion de memoria 
#170, en la cual empieza el Basic. A partir de 
aqui, la rutina se encarga de leer el contenido de 
la pantalla, y en el momenta que encuentre un 
caracter distinto de 32 (caracter espacio), se 
encarga de colocar otra Imea con los codigos 
correspondientes a la sentencia Basic ‘LOCATE’ 
seguida de las coordenadas de impresion 


128 

CALL #BB5A 

160 INCLl: 

LD 

A,L 

123 

RET 


Ibl 

CP 

25 

130 POSIC: 

DEFS 

2 

162 

JR 

Z,FIN 

131 PONBAS: 

CALL ltBB7E 

163 

LD 

H,0 

132 

LD 

HL,#170 

164 

INC 

» 

133 

LD 

DE,I171 

165 

JR 

EUCLE 

134 

LD 

BCJ4000 

166 UN: 

INC 

DE 

135 

LD 

(HL).O 

167 

INC 

DE 

136 

LOIR 


168 

LD 

f#AE66),DE 

13? 

LD 

HL,0ATS1 

169 

LD 

(ifAE68),DE 

138 

LD 

DE,#I70 

170 

LD 

:#AE6A),DE 

139 

LD 

BC,8 

171 

LD 


140 

LOIR 



‘IAE6Ci,DE 

141 

LD 

AT 

172 

RET 


142 

LD 

(LINEA).A 

173 PONER: 

PUSH 

Ah 

143 

LD 

LT 

174 

PUSH 

HL 

144 

LD 

H,0 

175 

PUSH 

DE 

145 eucle: 

INC 

H 

176 

LO 

ATLINEA) 

146 

LO 

ATMQOO) 

177 

INC 

A 

147 

INC 

A 

178 

LD 

(LINEA),A 

148 

CP 

H 

179 

LD 

hltats 

149 

JR 

2,INCL1 

180 

LD 

SCT6 

150 BUCl: 

PUSH HL 

181 

LOIR 


151 

PUSH DE 

182 

POP 

IX 

152 

CALL #BB75 

183 

POP 

HL 

153 

CALL #EB60 

184 

LD 

A,fLINEA) 

154 

POP 

DE 

185 

LD 

(IX+2),A 

155 

POP 

HL 

186 

LD 

A,H 

156 

CP 

A » 

187 

LD 

(IX+7),A 

157 

JR 

2,BUCLE 

188 

LD 

A,L 

1.58 

JR 

PDNER 

189 

LD 

(n+I0),A 

159 



190 

POP 

AF 
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correspondientes a dicho comando. A 
continuacion coloca el codigo correspondiente a 

seguido del codigo perteneciente al comando 
‘PRINT’, seguido de unas comillas, entre las 
cuales introduce los codigos ASCII de los 
caracteres lefdos en pantalla. El programa seguira 
introduciendo dichos codigos basta el momento 
que encuentre un espacio en bianco o bien en el 
momento en que termine la Imea actual, 
colocando al final otra vez las dos comillas. Esta 
operacion continuara basta que se hayan lefdo las 
25 Imeas horizontales de que se compone la 
pantalla para cada uno de los distintos modos. 
Una vez terminada la lectura de la pantalla e 
introducidos los codigos correspondientes a cada 
uno de los caracteres impresos en pantalla, se 
colocaran los datos correspondientes al programa 
Basic que se va a generar. Para ello se deben 
tomar los datos de los comandos de una tabla. 


191 

LD 

fDE!,A 

223 LZ 

ft. 15 

192 3UC2: 

INC 

H 

224 LD 


193 

LD 

ATNDDO' 

225 P 

EUCLE 

194 

INC 

A 

226 


195 

CP 

H 

z;- po-ii: 'X. 

OE 

196 

JR 

Z,PONFIN 

m LZ 

A,422 

137 

PUSH 

HL 

229 LD 

'.[E'.ft 

198 

PUSH 

DE 

:3G INC 

DE 

193 

CALL 

iiBB7E 

r: XOR 

A 

2C0 

CALL 

#EE60 

;:l LD 

■DFyA 

201 

POP 

OE 

::: irt 

ZE 

202 

PQP 

’T 

23: T 


203 

CF 

.? * 

235 INC 

A 

204 

JR 

ZTONFI: 

236 -Z 

TXU' A 

205 

INC 

DE 

23' LZ 

4,13 

206 

LO 

[DE),A 

228 LO 

(LONG),A 

207 

LD 

A.(LONG) 

233 JP 

EUCLE 


’NC 

A 

240 NOS: DEFE 

; 

iv-S 

209 

iliU 

lD 

n 

(LONG).A 

241 I.0NG: OEFB 

18 




242 LINEA: OEFB 

1 

210. 

211 PONFIN: 

jR 

INC 

BUC2 

DE 

243 DATS: OEFB 

Z.OT.T 

212 

LO 

AT22 


*09,420. 

213 

LD 

;0E),A 


*13,0 

214 

INC 

OE 


*22 

215 

XOR 

A 


dC, 0,9,1 

216 

LD 

(DE) A 


#BF, 

217 

INC 

DE 


*20 

218 

LD 

A.'NODC' 

244 DEFB m 

219 

LD 

M,A 

245 OATSl: DEFE 8,0,1.0, 

220 

LO 

A,(LONG) 


#AD,t20 

221 

INC 

A 


iF,0 

222 

LD 

fIX+O.A 

246 TL^ 
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listado ensamblador, se deberan cambiar las 
Kneas que se citan: 

1620 LD (#AE83),DE 

1630 LD (#AE85),DE 

1640 LD (#AE87),DE 

1650 LD (#AE89),DE 

Aquellos que elijan la opcion del cargador 
Basic, deberan efectuar los siguientes cambios: 


seguidos del texto que se debera imprimir, 
introduciendolos en las Kneas correspondientes. 
Cuando se hayan terminado todas las operaciones 
para la generacion del programa, deberemos 
informar al sistema de que existe un programa 
Basic en memoria, asi como la longitud del 
mismo. Una vez hecho esto, el programa estara 
listo para almacenarlo en disco o cinta, de la 
misma forma que hariamos con un programa en 
Basic realizado por nosotros mismos. Esto 
deberemos indicarlo en variables que el Amstrad 
reserva para ello. Estas son distintas para las 
diferentes gamas de ordenadores, por lo que 
deberemos variar algunas Kneas del programa 
ensamblador y del cargador Basic. Los listados 
que aparecen al final del artfculo, corresponden a 
las versiones para CPC 664 y CPC 6128; para 
los que posean un CPC464, se deberan realizar 
los cambios que se indican a continuacion: en el 


50 IF SUMAOS4975 THEN PRINT "ERROR EN DATAS" 
510 DATA 19,237,83,131,174,237,83 
520 DATA 135,174,237,83,137,174,237 
530 DATA 83,139,174,201,245,229,213 


Para poder disfrutar del programa, deberemos 
copiar el listado que aparece a continuacion, y 
ensamblarlo en la direccion que se desee, una vez 
hecho esto deberemos salvar en cinta o disco el 
codigo objeto, para poder ejecutarlo cuando se 
desee. Aquellos que prefieran teclear el cargador 
Basic, deberan ejecutarlo una vez terminado, y 
en caso de que no aparezca ningun error, 
salvarlo como codigo objeto, con: 

SAVE “GENERA”,B, &A000,1024 
Y para ejecutarlo: 

LOAD “GENERA” 

CALL &A000,0 (6 1 6 2). 
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REGAL 


ESTA CA 


RECIBA 
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D, 


_/eseo suscribirme a la revista AMSTRAD SEMANAL por un afio 
(50 numeros), al precio de 7.950 ptas. Esta suscripcion me da dere- 
rhn a rprihir tntalmente Gratis, una Camara con Flash incorporado 



(oferta valida solo para Espafia). 

Nombre_Fecha de Nacimiento - - 

Apellidos---- 

Domicilio_ 

Localidad_Provincia _ - 

C. Postal_ TelMono-- - 

(Paia agilizar su envio, es importante qua indique el codigo postal) 

Formas de page 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., n? - 

□ Contra reembolso (supone 125 ptas. mas de gastos de envio y 
es valido solo para Espafia). 

□ Tarjeta de credito n? DDDD DDDD DDDD DDDD 
Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta- 

Nombre deftitular (si es distinto)- 

(Si pago con la tarjeta de credito, recibire un numero mas de regalo) 

Fecha y firma 

(Si lo desea puede suscribirse por telfifono (91) 734 65 00) 

SOLICITE NUMEROS ATRASADOS, CINTAS SERIE ORO Y TAPAS 

Deseo recibir en mi domicilio las cintas que a continuacion indico, 
al precio de 756 ptas. cada una. Cada cinta lleva grabados los progra- 
mas publicados por AMSTRAD SEMANAL durante cuatro nume¬ 
ros consecutivos (1 al 4, 5 al 8, 9 al 12, etc.). 

Las cintas que deseo son: 

Numeros_al_Numeros _ _ _ al- 

Numeros_ al_ Numeros- al- 

□ Deseo recibir en mi domicilio los siguientes numeros atrasados de 
AMSTRAD SEMANAL, al precio de 190 ptas. cada uno. 


ISe encuentra agotado el n? 4) 

□ Deseo recibir en mi domicilio las tapas para conservar AMSTRAD 
SEMANAL, al precio de 850 ptas. (No necesita encuadernacidn). 

Nombre _ Fecha de Nacimiento_ 

Apellidos--—- 

Domicilio_ 

Localidad_ Provincia - 

C. Postal__Telefono _- 

(Paia agilizar su envio, es importante ipie indirpie el codigo postai) 

Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., n? - 

□ Contra reembolso (supone 125 ptas. mas de gastos de envio y 
es valido solo para Espafia). (Excepto cintas.) 

□ Tarjeta de aedito n? DDDD DDDD DDDD DDDD 
(Solo para pedidos superiores a 1.500 ptas.) 

Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta-- 

Nombre del titular (si es distinto)___ 

Fecha y firma 


No se admiten soiicitudes de cintas contra reemboiso 
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REGALAMOS 

ESTA CAMARA 


CON FLASH 
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DISTRiBOlDOR EXCLUSIVO MRA ESPANA: 

ERRE SOFTSVARE. C/. NljNEZ MORCWVDO, 11. 28036 MADRID - TELEF. (91) 314 18 04 
CffiLEGAdON BARCElX>fU.,C/. VILADOMAT, 114. TELEF. (93) 253 55 60. 
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